diff options
| author | hobbs <hobbs> | 2002-05-29 09:09:12 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-05-29 09:09:12 (GMT) |
| commit | 514dd2a61babad4abc78895bdadec335dd9b4c71 (patch) | |
| tree | b739c8e0d5375884459ce3976375ee07a732cb74 /generic/tclCompCmds.c | |
| parent | d09632b15964e5b79ad13ce6f7cad080df914050 (diff) | |
| download | tcl-514dd2a61babad4abc78895bdadec335dd9b4c71.zip tcl-514dd2a61babad4abc78895bdadec335dd9b4c71.tar.gz tcl-514dd2a61babad4abc78895bdadec335dd9b4c71.tar.bz2 | |
* generic/tclCompCmds.c (TclCompileStringCmd): removed error
creation in code that no longer throws an error.
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; } |