summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.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/tclVar.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/tclVar.c')
-rw-r--r--generic/tclVar.c16
1 files changed, 6 insertions, 10 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 50b02b3..e3daeff 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -15,7 +15,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclVar.c,v 1.120 2006/02/09 17:34:42 dgp Exp $
+ * RCS: @(#) $Id: tclVar.c,v 1.121 2006/08/10 12:15:31 dkf Exp $
*/
#include "tclInt.h"
@@ -2208,11 +2208,7 @@ Tcl_UnsetObjCmd(
register int i, flags = TCL_LEAVE_ERR_MSG;
register char *name;
- if (objc < 1) {
- Tcl_WrongNumArgs(interp, 1, objv,
- "?-nocomplain? ?--? ?varName varName ...?");
- return TCL_ERROR;
- } else if (objc == 1) {
+ if (objc == 1) {
/*
* Do nothing if no arguments supplied, so as to match command
* documentation.
@@ -3290,7 +3286,7 @@ TclPtrMakeUpvar(
if (index >= 0) {
if (!(varFramePtr->isProcCallFrame & FRAME_IS_PROC)) {
- Tcl_Panic("ObjMakeUpvar called with an index outside from a proc.\n");
+ Tcl_Panic("ObjMakeUpvar called with an index outside from a proc");
}
varPtr = &(varFramePtr->compiledLocals[index]);
} else {
@@ -4536,7 +4532,7 @@ static void
PanicOnUpdateVarName(
Tcl_Obj *objPtr)
{
- Tcl_Panic("ERROR: updateStringProc of type %s should not be called.",
+ Tcl_Panic("%s of type %s should not be called", "updateStringProc",
objPtr->typePtr->name);
}
@@ -4545,7 +4541,7 @@ PanicOnSetVarName(
Tcl_Interp *interp,
Tcl_Obj *objPtr)
{
- Tcl_Panic("ERROR: setFromAnyProc of type %s should not be called.",
+ Tcl_Panic("%s of type %s should not be called", "setFromAnyProc",
objPtr->typePtr->name);
return TCL_ERROR;
}
@@ -4664,7 +4660,7 @@ UpdateParsedVarName(
* This is a parsed scalar name: what is it doing here?
*/
- Tcl_Panic("ERROR: scalar parsedVarName without a string rep.\n");
+ Tcl_Panic("scalar parsedVarName without a string rep");
}
part1 = Tcl_GetStringFromObj(arrayPtr, &len1);