diff options
| author | hobbs <hobbs@noemail.net> | 2002-05-29 09:09:11 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2002-05-29 09:09:11 (GMT) |
| commit | c41efa200d97946c0736fa2bed95a27e34968cac (patch) | |
| tree | b739c8e0d5375884459ce3976375ee07a732cb74 /generic/tclCompCmds.c | |
| parent | cd3588a459f89b616a115dccbf1ca498506c3fca (diff) | |
| download | tcl-c41efa200d97946c0736fa2bed95a27e34968cac.zip tcl-c41efa200d97946c0736fa2bed95a27e34968cac.tar.gz tcl-c41efa200d97946c0736fa2bed95a27e34968cac.tar.bz2 | |
* generic/tclCompCmds.c (TclCompileStringCmd): removed error
creation in code that no longer throws an error.
FossilOrigin-Name: 9901b51fc60a0289bcea28faba4a7275bcdc03db
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 2b8f398..fefc33a 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.27 2002/02/26 17:26:25 msofer Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.28 2002/05/29 09:09:12 hobbs Exp $ */ #include "tclInt.h" @@ -2793,12 +2793,6 @@ TclCompileStringCmd(interp, parsePtr, envPtr) strncmp(str, "-nocase", (size_t) length) == 0) { nocase = 1; } else { - c = str[length]; - str[length] = '\0'; - Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), - "bad option \"", str, "\": must be -nocase", - (char *) NULL); - str[length] = c; /* Fail at run time, not in compilation */ return TCL_OUT_LINE_COMPILE; } |