From 7f1cc0d653321745c638522de84b67b1ac0bb33a Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Wed, 7 Aug 2002 15:50:28 +0000
Subject: 	* generic/tclCompile.h: 	* generic/tclObj.c: making
 tclCmdNameType static ([Bug 584567], 	Don Porter).

---
 ChangeLog            |  6 ++++++
 generic/tclCompile.h | 10 +---------
 generic/tclObj.c     |  4 ++--
 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 */
-- 
cgit v0.12