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/tclBasic.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/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index fcc1f93..f1c0fbd 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -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: tclBasic.c,v 1.1.2.4 1998/10/21 20:40:02 stanton Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.1.2.5 1998/11/11 04:54:07 stanton Exp $ */ #include "tclInt.h" @@ -599,7 +599,9 @@ Tcl_CallWhenDeleted(interp, proc, clientData) { Interp *iPtr = (Interp *) interp; static int assocDataCounter = 0; +#ifdef TCL_THREAD static Tcl_Mutex assocMutex; +#endif int new; char buffer[32 + TCL_INTEGER_SPACE]; AssocData *dPtr = (AssocData *) ckalloc(sizeof(AssocData)); |