diff options
| author | hobbs <hobbs> | 2002-09-02 20:10:03 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-09-02 20:10:03 (GMT) |
| commit | 743cfac13a8bf0eeb9c73cdb78251211c6431c66 (patch) | |
| tree | 107bebe8bad6f5fc806db30bdad8644d2c0c3b39 | |
| parent | 2433b43fc73edca24a0c96681212806145a22c27 (diff) | |
| download | tcl-743cfac13a8bf0eeb9c73cdb78251211c6431c66.zip tcl-743cfac13a8bf0eeb9c73cdb78251211c6431c66.tar.gz tcl-743cfac13a8bf0eeb9c73cdb78251211c6431c66.tar.bz2 | |
* generic/tclInterp.c (SlaveCreate): make sure that the memory and
checkmem commands are initialized in non-safe slave interpreters
when TCL_MEM_DEBUG is used. [Bug #583445]
| -rw-r--r-- | generic/tclInterp.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 383bae3..cb3dcde 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.16 2002/08/05 03:24:41 dgp Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.17 2002/09/02 20:10:03 hobbs Exp $ */ #include "tclInt.h" @@ -1804,6 +1804,11 @@ SlaveCreate(interp, pathPtr, safe) if (Tcl_Init(slaveInterp) == TCL_ERROR) { goto error; } + /* + * This will create the "memory" command in slave interpreters + * if we compiled with TCL_MEM_DEBUG, otherwise it does nothing. + */ + Tcl_InitMemory(slaveInterp); } return slaveInterp; |