Tcl Source Code

Check-in [4c14f88702]
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 | core-8-5-branch
Files: files | file ages | folders
SHA1: 4c14f88702c30c53f96bc1c2f220cc3ad2ccf380
User & Date: jan.nijtmans 2013-11-16 21:05:38
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-19
08:23
Cygwin: Instead of checking whether the win32 part is configured properly, just configure it when ne... check-in: 4202101f7e user: jan.nijtmans tags: core-8-5-branch
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
2013-11-05
12:36
Fix [426679ef7d]: Having man.macros after .TH breaks rendering on OpenBSD and possibly others. check-in: 5145f9b673 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclNotify.c.

816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834

    /*
     * 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 --







<
|
<
<
<







816
817
818
819
820
821
822

823



824
825
826
827
828
829
830

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

    if (!tsdPtr->inTraversal) {

	Tcl_SetTimer(&tsdPtr->blockTime);



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