diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-08-14 14:15:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-08-14 14:15:36 (GMT) |
| commit | cb022ef5bd73c2dcf81758815c2b7812e33cb7f5 (patch) | |
| tree | 1f5f6284a57a9559932e35d072bc22f796b11927 /generic/tclInt.h | |
| parent | 18859d2c2c1b21c3661e1137c93a9ad27ddf10b7 (diff) | |
| download | tcl-cb022ef5bd73c2dcf81758815c2b7812e33cb7f5.zip tcl-cb022ef5bd73c2dcf81758815c2b7812e33cb7f5.tar.gz tcl-cb022ef5bd73c2dcf81758815c2b7812e33cb7f5.tar.bz2 | |
restore all #ifdef TCL_WIDE_INT_IS_LONG, which were accidently removed in [19ff9b95e1]
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index fa6af8e..060b4bc 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -2632,7 +2632,9 @@ MODULE_SCOPE const Tcl_ObjType tclProcBodyType; MODULE_SCOPE const Tcl_ObjType tclStringType; MODULE_SCOPE const Tcl_ObjType tclArraySearchType; MODULE_SCOPE const Tcl_ObjType tclEnsembleCmdType; +#ifndef TCL_WIDE_INT_IS_LONG MODULE_SCOPE const Tcl_ObjType tclWideIntType; +#endif MODULE_SCOPE const Tcl_ObjType tclRegexpType; MODULE_SCOPE Tcl_ObjType tclCmdNameType; @@ -4381,6 +4383,7 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; * value of strings like: "yes", "no", "true", "false", "on", "off". */ +#ifndef TCL_WIDE_INT_IS_LONG #define TclSetWideIntObj(objPtr, w) \ do { \ TclInvalidateStringRep(objPtr); \ @@ -4388,6 +4391,7 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; (objPtr)->internalRep.wideValue = (Tcl_WideInt)(w); \ (objPtr)->typePtr = &tclWideIntType; \ } while (0) +#endif #define TclSetDoubleObj(objPtr, d) \ do { \ |