diff options
author | andreas_kupries <akupries@shaw.ca> | 2005-08-26 22:11:15 (GMT) |
---|---|---|
committer | andreas_kupries <akupries@shaw.ca> | 2005-08-26 22:11:15 (GMT) |
commit | 6b46682cfeecee8430f13996041c1347b9a20658 (patch) | |
tree | 8d4a9010820cf0f60087a28fd22afac8014358a1 /generic/tclThreadTest.c | |
parent | 4530b1f95c292b6cc8f2b1fc2fafd2f01f14b1b0 (diff) | |
download | tcl-6b46682cfeecee8430f13996041c1347b9a20658.zip tcl-6b46682cfeecee8430f13996041c1347b9a20658.tar.gz tcl-6b46682cfeecee8430f13996041c1347b9a20658.tar.bz2 |
* generic/tclIO.c: Moved Tcl_{Cut,Splice}Channel to
{Cut,Splice}Channel for internal use, and created new public
functions for Tcl_{Cut,Splice}Channel which walk the whole stack
of transformations and invoke the necessary thread actions.
Added code to Tcl_(Un)StackChannel to properly invoke the thread
actions when pushing and popping transformations on/from a
channel.
Diffstat (limited to 'generic/tclThreadTest.c')
-rw-r--r-- | generic/tclThreadTest.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 21487e7..cca3c5f 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclThreadTest.c,v 1.20 2005/08/24 17:56:23 andreas_kupries Exp $ + * RCS: @(#) $Id: tclThreadTest.c,v 1.21 2005/08/26 22:11:16 andreas_kupries Exp $ */ #include "tclInt.h" @@ -136,6 +136,12 @@ static int ThreadDeleteEvent _ANSI_ARGS_((Tcl_Event *eventPtr, ClientData clientData)); static void ThreadExitProc _ANSI_ARGS_((ClientData clientData)); + +/* Forward declaration of function import from "tclTest.c". + */ + +int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); + /* *---------------------------------------------------------------------- |