diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-22 09:54:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-22 09:54:40 (GMT) |
commit | fb10dc69eead85da6836ed1c28ee1269d1738337 (patch) | |
tree | cc7e7f60f2e9fe0bf063b0a2184190b1edc90f74 /generic | |
parent | 03a71b070685eecb97de3d3cfe830823b056054e (diff) | |
download | tcl-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.h | 1 | ||||
-rw-r--r-- | generic/tclObj.c | 4 |
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 |