diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:26:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:26:04 (GMT) |
| commit | 481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a (patch) | |
| tree | 327719a3c06587aa76044ab356e907a37d99accd /generic/tclTest.c | |
| parent | 73116e2c54973fea6efc412b979d78999df3a08a (diff) | |
| parent | b816a585c00c97feca1b4516769ccf2769a58e02 (diff) | |
| download | tcl-481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a.zip tcl-481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a.tar.gz tcl-481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 869ab1d..f175c01 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3500,18 +3500,18 @@ TestlistrepCmd( Tcl_WrongNumArgs(interp, 2, objv, "length ?leadSpace endSpace?"); return TCL_ERROR; } else { - int length; - int leadSpace = 0; - int endSpace = 0; - if (Tcl_GetIntFromObj(interp, objv[2], &length) != TCL_OK) { + Tcl_WideInt length; + Tcl_WideInt leadSpace = 0; + Tcl_WideInt endSpace = 0; + if (Tcl_GetWideIntFromObj(interp, objv[2], &length) != TCL_OK) { return TCL_ERROR; } if (objc > 3) { - if (Tcl_GetIntFromObj(interp, objv[3], &leadSpace) != TCL_OK) { + if (Tcl_GetWideIntFromObj(interp, objv[3], &leadSpace) != TCL_OK) { return TCL_ERROR; } if (objc > 4) { - if (Tcl_GetIntFromObj(interp, objv[4], &endSpace) + if (Tcl_GetWideIntFromObj(interp, objv[4], &endSpace) != TCL_OK) { return TCL_ERROR; } |