diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 11:20:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-11 11:20:09 (GMT) |
commit | 54ee71bc1207b883cec010d1f5acb60b08a8cc7b (patch) | |
tree | a10fd719299ff5d128949cfc4733e88742ed6940 /generic/tclTest.c | |
parent | 142a7645bb9c38692513ce5aaefe2ccbd1a9e02a (diff) | |
parent | ce8fc8dc1e031e8dd27cd9196f299ecb1e21317f (diff) | |
download | tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.zip tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.tar.gz tcl-54ee71bc1207b883cec010d1f5acb60b08a8cc7b.tar.bz2 |
Merge 9.0. Eliminate almost all remaining (enum) casts
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 485d15d..7db35e1 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7157,7 +7157,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; } |