diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2006-08-10 12:15:28 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2006-08-10 12:15:28 (GMT) |
| commit | 5fecb2e14300561bac581946809bf4414edb16a3 (patch) | |
| tree | 8cd60dbc9d7cd070ffaff79758e86c8cca2f24bb /generic/tclVar.c | |
| parent | 3f4ee0c4c41cca715f2b78d15c7823ab14e0cb62 (diff) | |
| download | tcl-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.c | 16 |
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); |