summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclCompile.h10
-rw-r--r--generic/tclObj.c4
3 files changed, 9 insertions, 11 deletions
diff --git a/ChangeLog b/ChangeLog
index 9344b86..6fd1ee9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 */