diff options
| author | andreas_kupries <akupries@shaw.ca> | 2009-07-23 23:01:59 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2009-07-23 23:01:59 (GMT) |
| commit | 2bab3ed49e96d767dafcf287960de0598225dfa1 (patch) | |
| tree | 0ab739ed519a0e3f72b491c2b441c7acd6f9c66d /generic/tclVar.c | |
| parent | bd734d2cf44d9550acd5c2ca3e6c5b17f9b03f72 (diff) | |
| download | tcl-2bab3ed49e96d767dafcf287960de0598225dfa1.zip tcl-2bab3ed49e96d767dafcf287960de0598225dfa1.tar.gz tcl-2bab3ed49e96d767dafcf287960de0598225dfa1.tar.bz2 | |
Revert series of local changes not relevant to the last commit.
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index c733dce..52eaf9f 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.180 2009/07/23 22:49:15 andreas_kupries Exp $ + * RCS: @(#) $Id: tclVar.c,v 1.181 2009/07/23 23:01:59 andreas_kupries Exp $ */ #include "tclInt.h" @@ -67,19 +67,10 @@ 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)) |