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/tclObj.c | |
| 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/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
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 |