diff options
| author | hobbs <hobbs> | 1999-12-22 00:00:16 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-12-22 00:00:16 (GMT) |
| commit | ba532fa572158cf1080aaf9775cae8bdc418bd9f (patch) | |
| tree | 40cc74ae6b672b93e526c5f915386d6cd4fdfebf /win/tclWinThrd.c | |
| parent | a29fb141e2be70d1cd9b901a14c3f8b3c8b93b5e (diff) | |
| download | tcl-ba532fa572158cf1080aaf9775cae8bdc418bd9f.zip tcl-ba532fa572158cf1080aaf9775cae8bdc418bd9f.tar.gz tcl-ba532fa572158cf1080aaf9775cae8bdc418bd9f.tar.bz2 | |
* win/mkd.bat:
* win/rmd.bat: removed necessity of tag.txt [Bug: 3874]
* win/tclWinThrd.c: changed CreateThread to _beginthreadex and
ExitThread to _endthreadex
* win/README.binary:
* win/configure.in: updated to patch level 8.3b1
Diffstat (limited to 'win/tclWinThrd.c')
| -rw-r--r-- | win/tclWinThrd.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index e12be89..e449731 100644 --- a/win/tclWinThrd.c +++ b/win/tclWinThrd.c @@ -120,11 +120,11 @@ TclpThreadCreate(idPtr, proc, clientData) Tcl_ThreadCreateProc proc; /* Main() function of the thread */ ClientData clientData; /* The one argument to Main() */ { - HANDLE tHandle; + unsigned long code; - tHandle = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE) proc, - (DWORD *)clientData, 0, (DWORD *)idPtr); - if (tHandle == NULL) { + code = _beginthreadex(NULL, 0, (LPTHREAD_START_ROUTINE) proc, + (void *)clientData, 0, (unsigned *)idPtr); + if (code == 0) { return TCL_ERROR; } else { return TCL_OK; @@ -151,7 +151,7 @@ void TclpThreadExit(status) int status; { - ExitThread((DWORD)status); + _endthreadex((DWORD)status); } |