summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-06-15 18:52:25 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-06-15 18:52:25 (GMT)
commit3234624adfe748f3d9e906e52cd9935faa1a913a (patch)
tree62f2248f73f521a12f7a3bf198524cb9b00c14dd /generic
parent7e5106ddb3d4a8167559780d733683406d9a1c54 (diff)
downloadtcl-3234624adfe748f3d9e906e52cd9935faa1a913a.zip
tcl-3234624adfe748f3d9e906e52cd9935faa1a913a.tar.gz
tcl-3234624adfe748f3d9e906e52cd9935faa1a913a.tar.bz2
* generic/tclStringObj.c: sprintf() -> Tcl_ObjPrintf() conversion.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclStringObj.c8
1 files changed, 3 insertions, 5 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index e844e14..b1f232d 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.70.2.13 2009/06/10 21:38:13 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.70.2.14 2009/06/15 18:52:25 dgp Exp $ */
#include "tclInt.h"
#include "tommath.h"
@@ -2379,10 +2379,8 @@ Tcl_AppendFormatToObj(
}
default:
if (interp != NULL) {
- char buf[40];
-
- sprintf(buf, "bad field specifier \"%c\"", ch);
- Tcl_SetObjResult(interp, Tcl_NewStringObj(buf, -1));
+ Tcl_SetObjResult(interp,
+ Tcl_ObjPrintf("bad field specifier \"%c\"", ch));
}
goto error;
}