diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-08 17:52:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-08 17:52:36 (GMT) |
| commit | 3df1a90364ee579fd64f37f49061fab042fd4647 (patch) | |
| tree | f63ff64347762a52ad09abde4e031727526c05c5 /generic/tclTestObj.c | |
| parent | 804199d4b7c8ed967e5136c796a658fbbcfbb7c2 (diff) | |
| parent | 0cd0bb6862a65142603ccbde70d3a894be70e9d4 (diff) | |
| download | tcl-3df1a90364ee579fd64f37f49061fab042fd4647.zip tcl-3df1a90364ee579fd64f37f49061fab042fd4647.tar.gz tcl-3df1a90364ee579fd64f37f49061fab042fd4647.tar.bz2 | |
Bring back stub table in original state.
Merge trunk
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 06f8e5f..5627608 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -1101,7 +1101,7 @@ TestobjCmd( if (CheckIfVarUnset(interp, varPtr,varIndex)) { return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_NewIntObj(varPtr[varIndex]->refCount)); + Tcl_SetObjResult(interp, Tcl_NewWideIntObj(varPtr[varIndex]->refCount)); } else if (strcmp(subCmd, "type") == 0) { if (objc != 3) { goto wrongNumArgs; |