diff options
author | dgp <dgp@users.sourceforge.net> | 2013-05-08 19:28:24 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-05-08 19:28:24 (GMT) |
commit | 6e0d46c4c83836794f625e199ece414f6b970c55 (patch) | |
tree | 83dccafbd8bb71424a271d696779af0738afc174 | |
parent | ebbffb3ea5b1b5609e3fb86ddea543aa3d24693d (diff) | |
download | tcl-dgp_sprintf.zip tcl-dgp_sprintf.tar.gz tcl-dgp_sprintf.tar.bz2 |
Start branch reducing use of sprintf().dgp_sprintf
-rw-r--r-- | generic/tclBasic.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b39d346..27992f6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6268,7 +6268,7 @@ ProcessUnexpectedResult( * result code was returned. */ int returnCode) /* The unexpected result code. */ { - char buf[TCL_INTEGER_SPACE]; + Tcl_Obj *errorObj = Tcl_NewObj(); Tcl_ResetResult(interp); if (returnCode == TCL_BREAK) { @@ -6281,8 +6281,11 @@ ProcessUnexpectedResult( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "command returned bad code: %d", returnCode)); } - sprintf(buf, "%d", returnCode); - Tcl_SetErrorCode(interp, "TCL", "UNEXPECTED_RESULT_CODE", buf, NULL); + Tcl_ListObjAppendElement(NULL, errorObj, Tcl_NewStringObj("TCL", -1)); + Tcl_ListObjAppendElement(NULL, errorObj, Tcl_NewStringObj( + "UNEXPECTED_RESULT_CODE", -1)); + Tcl_ListObjAppendElement(NULL, errorObj, Tcl_NewIntObj(returnCode)); + Tcl_SetObjErrorCode(interp, errorObj); } /* |