diff options
| author | welch <welch@noemail.net> | 2000-04-17 20:32:20 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 2000-04-17 20:32:20 (GMT) |
| commit | 01a7623638c39d8a810c03b8f1576e0d83beb690 (patch) | |
| tree | 3bfadebb521e935a8977c64957d4dcb011fa3f6b /win/tclWinThrd.c | |
| parent | a9cde29f904efb9552060fe975686275609ac15d (diff) | |
| download | tcl-01a7623638c39d8a810c03b8f1576e0d83beb690.zip tcl-01a7623638c39d8a810c03b8f1576e0d83beb690.tar.gz tcl-01a7623638c39d8a810c03b8f1576e0d83beb690.tar.bz2 | |
Added Tcl_CreateThreadType and TCL_RETURN_THREAD_TYPE
macros for declaring the NewThread callback proc.
FossilOrigin-Name: 3013a54849797beb3691e2aa78193867fef90af0
Diffstat (limited to 'win/tclWinThrd.c')
| -rw-r--r-- | win/tclWinThrd.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c index 5f430b2..e3227b1 100644 --- a/win/tclWinThrd.c +++ b/win/tclWinThrd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * SCCS: @(#) tclWinThrd.c 1.13 98/02/18 14:00:23 + * RCS: @(#) $Id: tclWinThrd.c,v 1.7 2000/04/17 20:32:26 welch Exp $ */ #include "tclWinInt.h" @@ -125,8 +125,8 @@ Tcl_CreateThread(idPtr, proc, clientData, stackSize, flags) { unsigned long code; - code = _beginthreadex(NULL, stackSize, (LPTHREAD_START_ROUTINE) proc, - (void *)clientData, 0, (unsigned *)idPtr); + code = _beginthreadex(NULL, stackSize, proc, clientData, 0, + (unsigned *)idPtr); if (code == 0) { return TCL_ERROR; } else { |