diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-02-06 21:11:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-02-06 21:11:01 (GMT) |
| commit | 90806d35252578f723b986809885e857c5aea380 (patch) | |
| tree | 2b08278cadb82b497938a0cef00e60000c9737d3 /generic/tclStubInit.c | |
| parent | 24886887f902f1b5a09c094110c6a4e75afbcea2 (diff) | |
| parent | 185cdc39c6ed70ecf07f8427be94091fffc05238 (diff) | |
| download | tcl-90806d35252578f723b986809885e857c5aea380.zip tcl-90806d35252578f723b986809885e857c5aea380.tar.gz tcl-90806d35252578f723b986809885e857c5aea380.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index dbd368c..0cc500d 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -31,6 +31,7 @@ #undef Tcl_NewIntObj #undef Tcl_NewListObj #undef Tcl_NewLongObj +#undef Tcl_DbNewLongObj #undef Tcl_NewObj #undef Tcl_NewStringObj #undef Tcl_DumpActiveMemory @@ -42,6 +43,7 @@ #undef TclpGetPid #undef TclSockMinimumBuffers #undef Tcl_SetIntObj +#undef Tcl_SetLongObj #undef TclpInetNtoa #undef TclWinGetServByName #undef TclWinGetSockOpt @@ -275,7 +277,7 @@ static Tcl_Obj *dbNewLongObj( TclDbNewObj(objPtr, file, line); objPtr->bytes = NULL; - objPtr->internalRep.longValue = (long) intValue; + objPtr->internalRep.wideValue = (long) intValue; objPtr->typePtr = &tclIntType; return objPtr; #else |