diff options
| author | welch <welch@noemail.net> | 2000-04-05 00:42:18 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 2000-04-05 00:42:18 (GMT) |
| commit | 06cab5cd1f7a5ed842c02ff6f8cfb9bea9dd8e62 (patch) | |
| tree | bb91db47932f866f9d7dd8f21a987905d73e9a59 /generic/tclThread.c | |
| parent | 872c0572a83e24d1418b4faa95466276b3da948a (diff) | |
| download | tcl-06cab5cd1f7a5ed842c02ff6f8cfb9bea9dd8e62.zip tcl-06cab5cd1f7a5ed842c02ff6f8cfb9bea9dd8e62.tar.gz tcl-06cab5cd1f7a5ed842c02ff6f8cfb9bea9dd8e62.tar.bz2 | |
Fixed compilation w/out TCL_THREADS
FossilOrigin-Name: 8dddd071dc9c6d24069d09cf4d8ca5f2b52ff5f5
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 + /* *---------------------------------------------------------------------- |