summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2018-01-22 09:54:40 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2018-01-22 09:54:40 (GMT)
commitfb10dc69eead85da6836ed1c28ee1269d1738337 (patch)
treecc7e7f60f2e9fe0bf063b0a2184190b1edc90f74 /generic
parent03a71b070685eecb97de3d3cfe830823b056054e (diff)
downloadtcl-fb10dc69eead85da6836ed1c28ee1269d1738337.zip
tcl-fb10dc69eead85da6836ed1c28ee1269d1738337.tar.gz
tcl-fb10dc69eead85da6836ed1c28ee1269d1738337.tar.bz2
make the old "int" type "static", since it's just used in a single file.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclInt.h1
-rw-r--r--generic/tclObj.c4
2 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index d74cd0e..50d0469 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -2713,7 +2713,6 @@ MODULE_SCOPE const Tcl_ObjType tclByteCodeType;
MODULE_SCOPE const Tcl_ObjType tclDoubleType;
MODULE_SCOPE const Tcl_ObjType tclEndOffsetType;
MODULE_SCOPE const Tcl_ObjType tclIntType;
-MODULE_SCOPE const Tcl_ObjType tclOldIntType;
MODULE_SCOPE const Tcl_ObjType tclListType;
MODULE_SCOPE const Tcl_ObjType tclDictType;
MODULE_SCOPE const Tcl_ObjType tclProcBodyType;
diff --git a/generic/tclObj.c b/generic/tclObj.c
index e02f6c4..ebe1450 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -276,7 +276,7 @@ const Tcl_ObjType tclIntType = {
SetIntFromAny /* setFromAnyProc */
};
#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 && !defined(TCL_WIDE_INT_IS_LONG)
-const Tcl_ObjType tclOldIntType = {
+static const Tcl_ObjType oldIntType = {
"int", /* name */
NULL, /* freeIntRepProc */
NULL, /* dupIntRepProc */
@@ -413,7 +413,7 @@ TclInitObjSubsystem(void)
#if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9
Tcl_RegisterObjType(&tclIntType);
#if !defined(TCL_WIDE_INT_IS_LONG)
- Tcl_RegisterObjType(&tclOldIntType);
+ Tcl_RegisterObjType(&oldIntType);
#endif
Tcl_RegisterObjType(&oldBooleanType);
#endif