diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | generic/tclNamesp.c | 4 |
2 files changed, 6 insertions, 2 deletions
@@ -1,3 +1,7 @@ +2001-06-28 Miguel Sofer <msofer@users.sourceforge.net> + + * generic/tclNamesp.c: Correction to faulty patch from [Bug: 231259] + 2001-06-28 Donal K. Fellows <fellowsd@cs.man.ac.uk> * tests/unixInit.test (unixInit-1.2): Modified so as not to diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index e570c24..5b4fdd3 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.24 2001/05/26 01:25:59 msofer Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.25 2001/06/28 12:43:33 msofer Exp $ */ #include "tclInt.h" @@ -2293,7 +2293,7 @@ TclResetShadowedCmdRefs(interp, newCmdPtr) * for a fresh compilation of every bytecode. */ - if ((((Command *) hPtr)->compileProc) != NULL) { + if ((((Command *) Tcl_GetHashValue(hPtr))->compileProc) != NULL) { nsPtr->resolverEpoch++; } } |