diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-08-07 15:50:28 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-08-07 15:50:28 (GMT) |
| commit | 7f1cc0d653321745c638522de84b67b1ac0bb33a (patch) | |
| tree | dd76899898ecea2044e2c6dba1107bf8c29e5fa7 | |
| parent | a8fc60bdf11abc47568df177b8c3d80cb96f33db (diff) | |
| download | tcl-7f1cc0d653321745c638522de84b67b1ac0bb33a.zip tcl-7f1cc0d653321745c638522de84b67b1ac0bb33a.tar.gz tcl-7f1cc0d653321745c638522de84b67b1ac0bb33a.tar.bz2 | |
* generic/tclCompile.h:
* generic/tclObj.c: making tclCmdNameType static ([Bug 584567],
Don Porter).
| -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 */ |