diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-01 21:47:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-02-01 21:47:01 (GMT) |
| commit | 0646a9217bc8deda948d9fbbb101806e31bf0e84 (patch) | |
| tree | 09c6d65ab453d9d3e890fbd82a2cb271f5ec6c8d /generic/tclTest.c | |
| parent | 88200b8dcb71dc4e4c1e91478de97299ff828e00 (diff) | |
| parent | 8ed053109c53a157e121884d50c693ac35df4f5e (diff) | |
| download | tcl-0646a9217bc8deda948d9fbbb101806e31bf0e84.zip tcl-0646a9217bc8deda948d9fbbb101806e31bf0e84.tar.gz tcl-0646a9217bc8deda948d9fbbb101806e31bf0e84.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 29dc2a2..3e818ac 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -4434,16 +4434,17 @@ TestprintObjCmd( { Tcl_WideInt argv1 = 0; size_t argv2; + long argv3; - if (objc < 2 || objc > 3) { + if (objc != 3) { Tcl_WrongNumArgs(interp, 1, objv, "format wideint"); + return TCL_OK; } - if (objc > 1) { - Tcl_GetWideIntFromObj(interp, objv[2], &argv1); - } + Tcl_GetWideIntFromObj(interp, objv[2], &argv1); argv2 = (size_t)argv1; - Tcl_SetObjResult(interp, Tcl_ObjPrintf(Tcl_GetString(objv[1]), argv1, argv2, argv2)); + argv3 = (long)argv1; + Tcl_SetObjResult(interp, Tcl_ObjPrintf(Tcl_GetString(objv[1]), argv1, argv2, argv3, argv3)); return TCL_OK; } |