diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-03-29 14:35:44 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-03-29 14:35:44 (GMT) |
| commit | d236581f7b07310302ded4d2992f137466270361 (patch) | |
| tree | e0a0fb2e4489e3a89687178c1a504b1918bdc164 /generic/tclTest.c | |
| parent | 555cf46f2a597a964fcbc80825343d8e281956d3 (diff) | |
| parent | efbb62b5bda42142f446bb8064d377473801c140 (diff) | |
| download | tcl-d236581f7b07310302ded4d2992f137466270361.zip tcl-d236581f7b07310302ded4d2992f137466270361.tar.gz tcl-d236581f7b07310302ded4d2992f137466270361.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 0694782..e87af0f 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -3847,6 +3847,7 @@ TestprintObjCmd( Tcl_Obj *const objv[]) /* The argument objects. */ { Tcl_WideInt argv1 = 0; + size_t argv2; if (objc < 2 || objc > 3) { Tcl_WrongNumArgs(interp, 1, objv, "format wideint"); @@ -3855,7 +3856,8 @@ TestprintObjCmd( if (objc > 1) { Tcl_GetWideIntFromObj(interp, objv[2], &argv1); } - Tcl_SetObjResult(interp, Tcl_ObjPrintf(Tcl_GetString(objv[1]), argv1)); + argv2 = (size_t)argv1; + Tcl_SetObjResult(interp, Tcl_ObjPrintf(Tcl_GetString(objv[1]), argv1, argv2, argv2)); return TCL_OK; } |