diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-06 20:54:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-06 20:54:35 (GMT) |
| commit | 6ce7eb980b9fa656a7790a70bbe801bce96bc6ee (patch) | |
| tree | bded056cd5bac438f522d348a97e41065dff5adb /generic/tclStubInit.c | |
| parent | 6bd80d67e4ea201ee43965ee6edaa28fe884f406 (diff) | |
| parent | 185cdc39c6ed70ecf07f8427be94091fffc05238 (diff) | |
| download | tcl-6ce7eb980b9fa656a7790a70bbe801bce96bc6ee.zip tcl-6ce7eb980b9fa656a7790a70bbe801bce96bc6ee.tar.gz tcl-6ce7eb980b9fa656a7790a70bbe801bce96bc6ee.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index fcdc546..2506da3 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 @@ -151,7 +152,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 |