Tcl Source Code

Check-in [0b4be2fe68]
Login

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

Overview
Comment:For [testthread cancel], avoid creating a new Tcl_Obj when the default script cancellation result is desired.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0b4be2fe683ee5fa4810f1a371d678f036ae6913
User & Date: mistachkin 2011-11-18 01:01:37
Context
2011-11-18
04:57
Refactor all the remaining thread-7.x tests that were using [testthread]. Note that this test file ... check-in: 3344b33e21 user: mistachkin tags: trunk
01:01
For [testthread cancel], avoid creating a new Tcl_Obj when the default script cancellation result is... check-in: 0b4be2fe68 user: mistachkin tags: trunk
2011-11-11
13:09
win/tclWinConsole.c: Refactor common thread handling patterns. check-in: 042936d44f user: dkf tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





2011-11-11  Donal K. Fellows  <[email protected]>

	* win/tclWinConsole.c: Refactor common thread handling patterns.

2011-11-11  Alexandre Ferrieux  <[email protected]>

	* tests/zlib.test: [Bug 3428756]: Use nonblocking writes in
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2011-11-17  Joe Mistachkin  <[email protected]>

	* generic/tclThreadTest.c: For [testthread cancel], avoid creating a
	new Tcl_Obj when the default script cancellation result is desired.

2011-11-11  Donal K. Fellows  <[email protected]>

	* win/tclWinConsole.c: Refactor common thread handling patterns.

2011-11-11  Alexandre Ferrieux  <[email protected]>

	* tests/zlib.test: [Bug 3428756]: Use nonblocking writes in

Changes to generic/tclThreadTest.c.

984
985
986
987
988
989
990
991

992
993
994
995
996
997
998
    /*
     * Since Tcl_CancelEval can be safely called from any thread,
     * we do it now.
     */

    Tcl_MutexUnlock(&threadMutex);
    Tcl_ResetResult(interp);
    return Tcl_CancelEval(tsdPtr->interp, Tcl_NewStringObj(result, -1), 0, flags);

}

/*
 *------------------------------------------------------------------------
 *
 * ThreadEventProc --
 *







|
>







984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
    /*
     * Since Tcl_CancelEval can be safely called from any thread,
     * we do it now.
     */

    Tcl_MutexUnlock(&threadMutex);
    Tcl_ResetResult(interp);
    return Tcl_CancelEval(tsdPtr->interp,
    	(result != NULL) ? Tcl_NewStringObj(result, -1) : NULL, 0, flags);
}

/*
 *------------------------------------------------------------------------
 *
 * ThreadEventProc --
 *