diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | generic/tclCompile.h | 10 | ||||
| -rw-r--r-- | generic/tclObj.c | 4 |
3 files changed, 9 insertions, 11 deletions
@@ -1,5 +1,11 @@ 2002-08-07 Miguel Sofer <msofer@users.sourceforge.net> + * generic/tclCompile.h: + * generic/tclObj.c: making tclCmdNameType static ([Bug 584567], + Don Porter). + +2002-08-07 Miguel Sofer <msofer@users.sourceforge.net> + * generic/tclObj.c (Tcl_NewObj): added conditional code for USE_THREAD_ALLOC; objects allocated through Tcl_NewObj() were otherwise being leaked. [Bug 587488] reported by Sven Sass. diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 88fe81d..272c777 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.h,v 1.30 2002/08/05 03:24:40 dgp Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.31 2002/08/07 15:50:29 msofer Exp $ */ #ifndef _TCLCOMPILATION @@ -30,14 +30,6 @@ *------------------------------------------------------------------------ */ -/* - * Variable that denotes the command name Tcl object type. Objects of this - * type cache the Command pointer that results from looking up command names - * in the command hashtable. - */ - -extern Tcl_ObjType tclCmdNameType; - #ifdef TCL_COMPILE_DEBUG /* * Variable that controls whether compilation tracing is enabled and, if so, diff --git a/generic/tclObj.c b/generic/tclObj.c index 2c5b468..2fb036c 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclObj.c,v 1.36 2002/08/07 14:25:01 msofer Exp $ + * RCS: @(#) $Id: tclObj.c,v 1.37 2002/08/07 15:50:29 msofer Exp $ */ #include "tclInt.h" @@ -156,7 +156,7 @@ Tcl_HashKeyType tclObjHashKeyType = { * name") argument in a Tcl command. */ -Tcl_ObjType tclCmdNameType = { +static Tcl_ObjType tclCmdNameType = { "cmdName", /* name */ FreeCmdNameInternalRep, /* freeIntRepProc */ DupCmdNameInternalRep, /* dupIntRepProc */ |