diff options
author | stanton <stanton> | 1998-11-11 04:54:06 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-11-11 04:54:06 (GMT) |
commit | c0fd219230e4295c44743ad165a0d5a1c980b7dc (patch) | |
tree | ecdef91e34f72a712092b469a2a5ff861db47fb7 /generic/tclObj.c | |
parent | 131c68d85079ca5a553b28fef489cf29b79f1176 (diff) | |
download | tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.zip tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.tar.gz tcl-c0fd219230e4295c44743ad165a0d5a1c980b7dc.tar.bz2 |
lots of lint
wrapped mutex declarations in ifdefs to avoid compiler warnings
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index e6a8bb2..834b681 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.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: tclObj.c,v 1.1.2.3 1998/10/06 02:59:04 stanton Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.1.2.4 1998/11/11 04:54:17 stanton Exp $ */ #include "tclInt.h" @@ -21,7 +21,9 @@ static Tcl_HashTable typeTable; static int typeTableInitialized = 0; /* 0 means not yet initialized. */ +#ifdef TCL_THREAD static Tcl_Mutex tableMutex; +#endif /* * Head of the list of free Tcl_Objs we maintain. @@ -34,7 +36,9 @@ Tcl_Obj *tclFreeObjList = NULL; * by the TclNewObj macro, however, so must be visible. */ +#ifdef TCL_THREAD Tcl_Mutex tclObjMutex; +#endif /* * Pointer to a heap-allocated string of length zero that the Tcl core uses |