diff options
| author | dgp <dgp@users.sourceforge.net> | 2006-08-28 14:13:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2006-08-28 14:13:22 (GMT) |
| commit | 484ddcb6a498fab5690d6e8d58fb6b75f16195c7 (patch) | |
| tree | 11888e917d8f13929f3ff16d8e4a19a7b8dae2f6 /generic | |
| parent | c22de5144f416a709ff386b57b1484fa09ec5ed1 (diff) | |
| download | tcl-484ddcb6a498fab5690d6e8d58fb6b75f16195c7.zip tcl-484ddcb6a498fab5690d6e8d58fb6b75f16195c7.tar.gz tcl-484ddcb6a498fab5690d6e8d58fb6b75f16195c7.tar.bz2 | |
* generic/tclStringObj.c: Corrected TclFormatObj's failure
to count up the number of arguments required by examining the
format string. [Bug 1547681]
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStringObj.c | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index e0af618..c0736f3 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.55 2006/08/10 12:15:31 dkf Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.56 2006/08/28 14:13:22 dgp Exp $ */ #include "tclInt.h" #include "tommath.h" @@ -2314,12 +2314,19 @@ FormatObjVA( { int code, objc; Tcl_Obj **objv, *element, *list = Tcl_NewObj(); + CONST char *p = format; Tcl_IncrRefCount(list); - element = va_arg(argList, Tcl_Obj *); - while (element != NULL) { - Tcl_ListObjAppendElement(NULL, list, element); + while (*p != '\0') { + if (*p++ != '%') { + continue; + } + if (*p == '%') { + continue; + } + p++; element = va_arg(argList, Tcl_Obj *); + Tcl_ListObjAppendElement(NULL, list, element); } Tcl_ListObjGetElements(NULL, list, &objc, &objv); code = TclAppendFormattedObjs(interp, objPtr, format, objc, objv); |