diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-01 08:33:56 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-01 08:33:56 (GMT) |
| commit | d1f3e49057fa7688586babd4b53652f22e479ff6 (patch) | |
| tree | 61626754a10bb0c4b2d02a762aba7a5ea67d25b3 /generic/tclStringObj.c | |
| parent | 4139aa785c96f443c893c26e9d98fe3fa557d3ff (diff) | |
| parent | 0f90e86f25b993214ea14f44921a024303e31033 (diff) | |
| download | tcl-d1f3e49057fa7688586babd4b53652f22e479ff6.zip tcl-d1f3e49057fa7688586babd4b53652f22e479ff6.tar.gz tcl-d1f3e49057fa7688586babd4b53652f22e479ff6.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index d7c4a6b..9b72d52 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2000,7 +2000,7 @@ Tcl_AppendFormatToObj( const char *bytes; if (useShort) { - pure = Tcl_NewLongObj((long) s); + pure = Tcl_NewIntObj((int) s); } else if (useWide) { pure = Tcl_NewWideIntObj(w); } else if (useBig) { @@ -2474,7 +2474,7 @@ AppendPrintfToObjVA( break; case '*': lastNum = (int) va_arg(argList, int); - Tcl_ListObjAppendElement(NULL, list, Tcl_NewLongObj(lastNum)); + Tcl_ListObjAppendElement(NULL, list, Tcl_NewIntObj(lastNum)); p++; break; case '0': case '1': case '2': case '3': case '4': |