diff options
| author | welch <welch> | 2000-04-05 00:42:19 (GMT) |
|---|---|---|
| committer | welch <welch> | 2000-04-05 00:42:19 (GMT) |
| commit | 5820a11d23505ff7b32c315baf0ba80ad43f85b0 (patch) | |
| tree | bb91db47932f866f9d7dd8f21a987905d73e9a59 /generic/tclThread.c | |
| parent | 6dbef5e2422044bd459aafbd726584b7cca1ced1 (diff) | |
| download | tcl-5820a11d23505ff7b32c315baf0ba80ad43f85b0.zip tcl-5820a11d23505ff7b32c315baf0ba80ad43f85b0.tar.gz tcl-5820a11d23505ff7b32c315baf0ba80ad43f85b0.tar.bz2 | |
Fixed compilation w/out TCL_THREADS
Diffstat (limited to 'generic/tclThread.c')
| -rw-r--r-- | generic/tclThread.c | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/generic/tclThread.c b/generic/tclThread.c index 69142ae..0f6e2e8 100644 --- a/generic/tclThread.c +++ b/generic/tclThread.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. * - * RCS: @(#) $Id: tclThread.c,v 1.4 2000/04/04 20:28:43 kupries Exp $ + * RCS: @(#) $Id: tclThread.c,v 1.5 2000/04/05 00:42:20 welch Exp $ */ #include "tclInt.h" @@ -43,6 +43,20 @@ static void RememberSyncObject _ANSI_ARGS_((char *objPtr, static void ForgetSyncObject _ANSI_ARGS_((char *objPtr, SyncObjRecord *recPtr)); +/* + * Several functions are #defined to nothing in tcl.h if TCL_THREADS is not + * specified. Here we undo that so the procedures are defined in the + * stubs table. + */ +#ifndef TCL_THREADS +#undef Tcl_MutexLock +#undef Tcl_MutexUnlock +#undef Tcl_MutexFinalize +#undef Tcl_ConditionNotify +#undef Tcl_ConditionWait +#undef Tcl_ConditionFinalize +#endif + /* *---------------------------------------------------------------------- |