diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-24 15:52:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-03-24 15:52:42 (GMT) |
commit | e30a832a0e2040dd682f2e77c6d26043e0829d80 (patch) | |
tree | 422f4d2326d1d9efae447878c3a465fe4c449779 /generic/tclTest.c | |
parent | 1749f80a0818eb09d3657e5d1c9038c031d9e30e (diff) | |
download | tcl-e30a832a0e2040dd682f2e77c6d26043e0829d80.zip tcl-e30a832a0e2040dd682f2e77c6d26043e0829d80.tar.gz tcl-e30a832a0e2040dd682f2e77c6d26043e0829d80.tar.bz2 |
Supply more C99-compatible (and MSVC) format options: '%p' for pointers, 'z'/'j'/'I' for size_t/intptr_diff, 'j'/'q' for long long. Also add "I32" froom MSVC.
Remove TCL_LL_MODIFIER specified as "L" for Borland: This must be wrong as "L" is meant for long double. Just assume that later Borland compilers are MSVC-compatible.
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 84d4ea1..0f019bb 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; } |