diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-08 13:01:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-08 13:01:04 (GMT) |
| commit | 776820c81f81f472c7c165a3ef6b4a645409c1e3 (patch) | |
| tree | 1e5dd9f7c760d6a8557d8da11a764ed32e90da20 /generic/tclTest.c | |
| parent | cb0acd5a7dde2f72ebeb544c6fc6aa0b5c53c4db (diff) | |
| parent | ce8fc8dc1e031e8dd27cd9196f299ecb1e21317f (diff) | |
| download | tcl-776820c81f81f472c7c165a3ef6b4a645409c1e3.zip tcl-776820c81f81f472c7c165a3ef6b4a645409c1e3.tar.gz tcl-776820c81f81f472c7c165a3ef6b4a645409c1e3.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index f1b95b6..1e769af 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7158,7 +7158,8 @@ TestGetIntForIndexCmd( if (Tcl_GetIntForIndex(interp, objv[1], endvalue, &result) != TCL_OK) { return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_NewWideIntObj(result)); + /* Make sure that (size_t)-2 is output as "-2" and (size_t)-3 as "-3", even for 32-bit */ + Tcl_SetObjResult(interp, Tcl_NewWideIntObj((Tcl_WideInt)((Tcl_WideUInt)(result + 3U)) - 3)); return TCL_OK; } |