Tcl Source Code

Check-in [04b08d7303]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix [e832d2b08]: unnecessary code in Tcl_SetMaxBlockTime.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 04b08d7303b83413c55984ca4c13937efbeaccce
User & Date: jan.nijtmans 2013-11-16 21:06:46
References
2013-11-16
21:09 Closed ticket [e832d2b08f]: unnecessary code in Tcl_SetMaxBlockTime plus 7 other changes artifact: 3916336292 user: jan.nijtmans
Context
2013-11-18
11:00
Eliminate some redundant Tcl_GetErrno() calls. check-in: 29b76e5d7d user: jan.nijtmans tags: trunk
2013-11-16
21:06
Fix [e832d2b08]: unnecessary code in Tcl_SetMaxBlockTime. check-in: 04b08d7303 user: jan.nijtmans tags: trunk
21:05
Fix [e832d2b08]: unnecessary code in Tcl_SetMaxBlockTime. check-in: 4c14f88702 user: jan.nijtmans tags: core-8-5-branch
20:33
Map WSAEWOULDBLOCK to EWOULDBLOCK. Suggested by Reinhard Max. check-in: b34eced180 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclNotify.c.

809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827

    /*
     * If we are called outside an event source traversal, set the timeout
     * immediately.
     */

    if (!tsdPtr->inTraversal) {
	if (tsdPtr->blockTimeSet) {
	    Tcl_SetTimer(&tsdPtr->blockTime);
	} else {
	    Tcl_SetTimer(NULL);
	}
    }
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_DoOneEvent --







<
|
<
<
<







809
810
811
812
813
814
815

816



817
818
819
820
821
822
823

    /*
     * If we are called outside an event source traversal, set the timeout
     * immediately.
     */

    if (!tsdPtr->inTraversal) {

	Tcl_SetTimer(&tsdPtr->blockTime);



    }
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_DoOneEvent --