diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2001-06-28 12:43:33 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2001-06-28 12:43:33 (GMT) |
| commit | be317297cf2254b62ff4e0aa930c1de525bfbe9b (patch) | |
| tree | d1d645eec1b5c452a12ace4aca581a7542e2e390 | |
| parent | ad089734d46b752197f9573a90e85d67b6870083 (diff) | |
| download | tcl-be317297cf2254b62ff4e0aa930c1de525bfbe9b.zip tcl-be317297cf2254b62ff4e0aa930c1de525bfbe9b.tar.gz tcl-be317297cf2254b62ff4e0aa930c1de525bfbe9b.tar.bz2 | |
Correction to faulty patch for bug #231259
| -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++; } } |