diff options
| author | welch <welch@noemail.net> | 2000-04-10 22:44:14 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 2000-04-10 22:44:14 (GMT) |
| commit | dcd0d0b898a54bfbb21048aa6206b5d8801a02c9 (patch) | |
| tree | 18fc4d9eb7a8ab7cb66a2f6c7de9022bebb75bc2 | |
| parent | ff0fab7b16e7b6e8afc6ac8e9412cbd899c3d23a (diff) | |
| download | tcl-dcd0d0b898a54bfbb21048aa6206b5d8801a02c9.zip tcl-dcd0d0b898a54bfbb21048aa6206b5d8801a02c9.tar.gz tcl-dcd0d0b898a54bfbb21048aa6206b5d8801a02c9.tar.bz2 | |
Fixed Tcl_CreateThreadProc declaration
FossilOrigin-Name: c66c45242e2ff8288dd7f6014c99756fb116621f
| -rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index e1396de..4af2c79 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.66 2000/04/10 18:17:41 hobbs Exp $ + * RCS: @(#) $Id: tcl.h,v 1.67 2000/04/10 22:44:15 welch Exp $ */ #ifndef _TCL @@ -395,6 +395,8 @@ typedef struct Tcl_Var_ *Tcl_Var; #ifdef MAC_TCL typedef pascal void *(Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); +#elif defined __WIN32__ +typedef unsigned (__stdcall Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); #else typedef void (Tcl_ThreadCreateProc) _ANSI_ARGS_((ClientData clientData)); #endif |