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 | 920aa8280f7ad6756c06787903f8ee5b9a5497a3 (patch) | |
| tree | 422f4d2326d1d9efae447878c3a465fe4c449779 /generic/tclTest.c | |
| parent | ab08379d1c20b87f25e17de1c9e8bac2b0360e47 (diff) | |
| download | tcl-920aa8280f7ad6756c06787903f8ee5b9a5497a3.zip tcl-920aa8280f7ad6756c06787903f8ee5b9a5497a3.tar.gz tcl-920aa8280f7ad6756c06787903f8ee5b9a5497a3.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; } |