summaryrefslogtreecommitdiffstats
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
parent7e5106ddb3d4a8167559780d733683406d9a1c54 (diff)
downloadtcl-3234624adfe748f3d9e906e52cd9935faa1a913a.zip
tcl-3234624adfe748f3d9e906e52cd9935faa1a913a.tar.gz
tcl-3234624adfe748f3d9e906e52cd9935faa1a913a.tar.bz2
* generic/tclStringObj.c: sprintf() -> Tcl_ObjPrintf() conversion.
-rw-r--r--ChangeLog4
-rw-r--r--generic/tclStringObj.c8
2 files changed, 7 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index 58e412b..a0b8793 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-15 Don Porter <dgp@users.sourceforge.net>
+
+ * generic/tclStringObj.c: sprintf() -> Tcl_ObjPrintf() conversion.
+
2009-06-13 Don Porter <dgp@users.sourceforge.net>
* generic/tclCompile.c: The value stashed in iPtr->compiledProcPtr
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;
}