summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-08-10 12:15:28 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-08-10 12:15:28 (GMT)
commit5fecb2e14300561bac581946809bf4414edb16a3 (patch)
tree8cd60dbc9d7cd070ffaff79758e86c8cca2f24bb /generic/tclExecute.c
parent3f4ee0c4c41cca715f2b78d15c7823ab14e0cb62 (diff)
downloadtcl-5fecb2e14300561bac581946809bf4414edb16a3.zip
tcl-5fecb2e14300561bac581946809bf4414edb16a3.tar.gz
tcl-5fecb2e14300561bac581946809bf4414edb16a3.tar.bz2
Various minor object file size efficiency fixes. [Bug 1530474]
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 5e12c95..1ab1b02 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.240 2006/07/26 21:56:34 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.241 2006/08/10 12:15:31 dkf Exp $
*/
#include "tclInt.h"
@@ -153,14 +153,14 @@ long tclObjsShared[TCL_MAX_SHARED_OBJ_STATS] = { 0, 0, 0, 0, 0 };
switch (nCleanup) {\
case 1: goto cleanup1_pushObjResultPtr;\
case 2: goto cleanup2_pushObjResultPtr;\
- default: Tcl_Panic("ERROR: bad usage of macro NEXT_INST_F");\
+ default: Tcl_Panic("bad usage of macro NEXT_INST_F");\
}\
} else {\
pc += (pcAdjustment);\
switch (nCleanup) {\
case 1: goto cleanup1;\
case 2: goto cleanup2;\
- default: Tcl_Panic("ERROR: bad usage of macro NEXT_INST_F");\
+ default: Tcl_Panic("bad usage of macro NEXT_INST_F");\
}\
}
@@ -502,7 +502,7 @@ TclDeleteExecEnv(
if (eePtr->stackPtr[-1] == (Tcl_Obj *) ((char *) 1)) {
ckfree((char *) (eePtr->stackPtr-1));
} else {
- Tcl_Panic("ERROR: freeing an execEnv whose stack is still in use.\n");
+ Tcl_Panic("freeing an execEnv whose stack is still in use");
}
TclDecrRefCount(eePtr->constants[0]);
TclDecrRefCount(eePtr->constants[1]);
@@ -1040,7 +1040,7 @@ TclIncrObj(
mp_int value, incr;
if (Tcl_IsShared(valuePtr)) {
- Tcl_Panic("shared object passed to TclIncrObj");
+ Tcl_Panic("%s called with shared object", "TclIncrObj");
}
if (GetNumberFromObj(NULL, valuePtr, &ptr1, &type1) != TCL_OK) {