diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-06 15:43:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-06 15:43:16 (GMT) |
| commit | 6015ac3af970f0ba128d33fe752df175b42fefd4 (patch) | |
| tree | 890347980ec3e891450016c9418e595c65f7166a /generic/tclThreadTest.c | |
| parent | 19d35f4ef53660720d360042a30f3d9dafd5e5be (diff) | |
| download | tcl-6015ac3af970f0ba128d33fe752df175b42fefd4.zip tcl-6015ac3af970f0ba128d33fe752df175b42fefd4.tar.gz tcl-6015ac3af970f0ba128d33fe752df175b42fefd4.tar.bz2 | |
Use Tcl_EvalEx in pkgb.dll. Same functionality.
More deprecated function replacements
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 960c7dc..0482822 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -113,22 +113,16 @@ static char *errorProcString; TCL_DECLARE_MUTEX(threadMutex) -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLEXPORT - -EXTERN int TclThread_Init(Tcl_Interp *interp); -EXTERN int Tcl_ThreadObjCmd(ClientData clientData, +DLLEXPORT int TclThread_Init(Tcl_Interp *interp); +DLLEXPORT int Tcl_ThreadObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -EXTERN int TclCreateThread(Tcl_Interp *interp, char *script, +DLLEXPORT int TclCreateThread(Tcl_Interp *interp, char *script, int joinable); -EXTERN int TclThreadList(Tcl_Interp *interp); -EXTERN int TclThreadSend(Tcl_Interp *interp, Tcl_ThreadId id, +DLLEXPORT int TclThreadList(Tcl_Interp *interp); +DLLEXPORT int TclThreadSend(Tcl_Interp *interp, Tcl_ThreadId id, char *script, int wait); -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - Tcl_ThreadCreateType NewTestThread(ClientData clientData); static void ListRemove(ThreadSpecificData *tsdPtr); static void ListUpdateInner(ThreadSpecificData *tsdPtr); |