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/tclCmdAH.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/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 99525ef..f2c49cb 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.74 2006/06/20 13:22:59 dgp Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.75 2006/08/10 12:15:30 dkf Exp $ */ #include "tclInt.h" @@ -1784,12 +1784,12 @@ Tcl_ForeachObjCmd(dummy, interp, objc, objv) result = Tcl_ListObjGetElements(interp, argObjv[1+i*2], &varcList[i], &varvList[i]); if (result != TCL_OK) { - Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert variable list %d to a list object\n", i); + Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert variable list %d to a list object", i); } result = Tcl_ListObjGetElements(interp, argObjv[2+i*2], &argcList[i], &argvList[i]); if (result != TCL_OK) { - Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert value list %d to a list object\n", i); + Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert value list %d to a list object", i); } for (v=0 ; v<varcList[i] ; v++) { |