diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-05-23 21:05:13 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-05-23 21:05:13 (GMT) |
| commit | 6a332b702f97a6c06d57c5e7fc40604cefe40e08 (patch) | |
| tree | fa12346b4916af7e6abd32ef69fa0b863f8d930b /generic/tclVar.c | |
| parent | 330add62d15d66049d37d4e23a769b78074d15ab (diff) | |
| download | tcl-6a332b702f97a6c06d57c5e7fc40604cefe40e08.zip tcl-6a332b702f97a6c06d57c5e7fc40604cefe40e08.tar.gz tcl-6a332b702f97a6c06d57c5e7fc40604cefe40e08.tar.bz2 | |
Oops. Undo commit of the local tweaks.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index a88f15c..b7bdcaf 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclVar.c,v 1.161 2008/05/23 21:00:45 andreas_kupries Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.162 2008/05/23 21:05:13 andreas_kupries Exp $ */ #include "tclInt.h" @@ -67,19 +67,8 @@ VarHashCreateVar( #define VarHashFindVar(tablePtr, key) \ VarHashCreateVar((tablePtr), (key), NULL) -#ifdef _AIX -/* Work around AIX cc problem causing crash in TclDeleteVars. Possible - * optimizer bug. Do _NOT_ inline this function, this re-activates the - * problem. - */ -static void -VarHashInvalidateEntry(Var* varPtr) { - varPtr->flags |= VAR_DEAD_HASH; -} -#else #define VarHashInvalidateEntry(varPtr) \ ((varPtr)->flags |= VAR_DEAD_HASH) -#endif #define VarHashDeleteEntry(varPtr) \ Tcl_DeleteHashEntry(&(((VarInHash *) varPtr)->entry)) |