From be317297cf2254b62ff4e0aa930c1de525bfbe9b Mon Sep 17 00:00:00 2001 From: Miguel Sofer Date: Thu, 28 Jun 2001 12:43:33 +0000 Subject: Correction to faulty patch for bug #231259 --- ChangeLog | 4 ++++ generic/tclNamesp.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6a26b46..98ff7b6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2001-06-28 Miguel Sofer + + * generic/tclNamesp.c: Correction to faulty patch from [Bug: 231259] + 2001-06-28 Donal K. Fellows * 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++; } } -- cgit v0.12