diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 10:07:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-12-23 10:07:38 (GMT) |
| commit | 9c4eb9d12191daaee0a919967abc8f21b3f4fd99 (patch) | |
| tree | dbbf5d9b49dba582d4ea6bd1f8c5c3d857a60a49 /generic/tclTestObj.c | |
| parent | 9394984c31c5ff3087bbdc784811b2d57fda1114 (diff) | |
| download | tcl-9c4eb9d12191daaee0a919967abc8f21b3f4fd99.zip tcl-9c4eb9d12191daaee0a919967abc8f21b3f4fd99.tar.gz tcl-9c4eb9d12191daaee0a919967abc8f21b3f4fd99.tar.bz2 | |
Deprecate otherValuePtr and ptrAndLongRep. Some more minor tweaks.
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 6c4a1ed..d11c65f 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -1266,8 +1266,8 @@ TeststringobjCmd( if (objc != 3) { goto wrongNumArgs; } - Tcl_SetLongObj(Tcl_GetObjResult(interp), (varPtr[varIndex] != NULL) - ? varPtr[varIndex]->length : (size_t)-1); + Tcl_SetWideIntObj(Tcl_GetObjResult(interp), (varPtr[varIndex] != NULL) + ? (Tcl_WideInt)varPtr[varIndex]->length : (Tcl_WideInt)-1); break; case 5: /* length2 */ if (objc != 3) { |