Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Start branch reducing use of sprintf(). |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | dgp-sprintf |
| Files: | files | file ages | folders |
| SHA1: |
cef46dbe76e8330f84cf91380eb1f703 |
| User & Date: | dgp 2013-05-08 19:28:24.348 |
Context
|
2013-05-08
| ||
| 19:28 | Start branch reducing use of sprintf(). Closed-Leaf check-in: cef46dbe76 user: dgp tags: dgp-sprintf | |
|
2013-05-07
| ||
| 11:38 | No longer link Cygwin executables with zlib1.dll, but with cygz.dll. On Cygwin64 this doesn't work,... check-in: 76f6a1495e user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
6264 6265 6266 6267 6268 6269 6270 |
static void
ProcessUnexpectedResult(
Tcl_Interp *interp, /* The interpreter in which the unexpected
* result code was returned. */
int returnCode) /* The unexpected result code. */
{
| | | > | > > | 6264 6265 6266 6267 6268 6269 6270 6271 6272 6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 6294 6295 |
static void
ProcessUnexpectedResult(
Tcl_Interp *interp, /* The interpreter in which the unexpected
* result code was returned. */
int returnCode) /* The unexpected result code. */
{
Tcl_Obj *errorObj = Tcl_NewObj();
Tcl_ResetResult(interp);
if (returnCode == TCL_BREAK) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"invoked \"break\" outside of a loop", -1));
} else if (returnCode == TCL_CONTINUE) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"invoked \"continue\" outside of a loop", -1));
} else {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"command returned bad code: %d", returnCode));
}
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);
}
/*
*---------------------------------------------------------------------------
*
* Tcl_ExprLong, Tcl_ExprDouble, Tcl_ExprBoolean --
*
|
| ︙ | ︙ |