diff options
| author | hobbs <hobbs> | 2001-04-04 21:22:17 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-04-04 21:22:17 (GMT) |
| commit | 7e591f8baf9051704ea9aad307ec45afe09bafac (patch) | |
| tree | 7149049c2fa3659f3eb9841e1b5ddb5081685820 /generic/tclThreadTest.c | |
| parent | df63f960c6e047d71cf61efa655b3a87cfd35f25 (diff) | |
| download | tcl-7e591f8baf9051704ea9aad307ec45afe09bafac.zip tcl-7e591f8baf9051704ea9aad307ec45afe09bafac.tar.gz tcl-7e591f8baf9051704ea9aad307ec45afe09bafac.tar.bz2 | |
* generic/tcl.h: addition of ConditionalMacros.h and use of
DLLIMPORT and DLLEXPORT.
* generic/tclIntPlatDecls.h:
* generic/tclInt.decls:
* generic/tclMain.c:
* generic/tclStubInit.c:
* generic/tclThreadTest.c: NewThread -> NewTestThread
* mac/MW_TclAppleScriptHeader.pch:
* mac/MW_TclHeader.pch:
* mac/MW_TclTestHeader.pch:
* mac/tclMac.h:
* mac/tclMacAppInit.c:
* mac/tclMacApplication.r:
* mac/tclMacChan.c: cast for *BlockMode
* mac/tclMacCommonPch.h:
* mac/tclMacFCmd.c:
* mac/tclMacInt.h:
* mac/tclMacLibrary.c:
* mac/tclMacLibrary.r:
* mac/tclMacMath.h:
* mac/tclMacNotify.c:
* mac/tclMacOSA.c:
* mac/tclMacOSA.r:
* mac/tclMacPanic.c:
* mac/tclMacPort.h:
* mac/tclMacResource.r:
* mac/tclMacSock.c: cast for *BlockMode
* mac/tclMacThrd.c:
* mac/tclMacUnix.c:
* mac/tclMacUtil.c: changed mac declarations to use Tcl ending,
fixed copyrights, updated headers, fixed comments, updated
resource files. Mac builds are now meant to be build with
MetroWerks CW 6.
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 2ef43bc..876a590 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.9 2000/04/17 20:32:22 welch Exp $ + * RCS: @(#) $Id: tclThreadTest.c,v 1.9.2.1 2001/04/04 21:22:18 hobbs Exp $ */ #include "tclInt.h" @@ -126,7 +126,7 @@ EXTERN int TclThreadSend _ANSI_ARGS_((Tcl_Interp *interp, Tcl_ThreadId id, #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT -Tcl_ThreadCreateType NewThread _ANSI_ARGS_((ClientData clientData)); +Tcl_ThreadCreateType NewTestThread _ANSI_ARGS_((ClientData clientData)); static void ListRemove _ANSI_ARGS_((ThreadSpecificData *tsdPtr)); static void ListUpdateInner _ANSI_ARGS_((ThreadSpecificData *tsdPtr)); static int ThreadEventProc _ANSI_ARGS_((Tcl_Event *evPtr, int mask)); @@ -355,7 +355,7 @@ TclCreateThread(interp, script) ctrl.flags = 0; Tcl_MutexLock(&threadMutex); - if (Tcl_CreateThread(&id, NewThread, (ClientData) &ctrl, + if (Tcl_CreateThread(&id, NewTestThread, (ClientData) &ctrl, TCL_THREAD_STACK_DEFAULT, TCL_THREAD_NOFLAGS) != TCL_OK) { Tcl_MutexUnlock(&threadMutex); Tcl_AppendResult(interp,"can't create a new thread",0); @@ -377,7 +377,7 @@ TclCreateThread(interp, script) /* *------------------------------------------------------------------------ * - * NewThread -- + * NewTestThread -- * * This routine is the "main()" for a new thread whose task is to * execute a single TCL script. The argument to this function is @@ -403,7 +403,7 @@ TclCreateThread(interp, script) *------------------------------------------------------------------------ */ Tcl_ThreadCreateType -NewThread(clientData) +NewTestThread(clientData) ClientData clientData; { ThreadCtrl *ctrlPtr = (ThreadCtrl*)clientData; |