diff options
| author | stanton <stanton@noemail.net> | 1999-02-03 00:55:03 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1999-02-03 00:55:03 (GMT) |
| commit | 230c5c037a6ad78f260db8e2fb58b417aac289cb (patch) | |
| tree | 54aa9c12b6ea7911adec5a90deda722113ae9043 /generic/tclCompile.c | |
| parent | f05e03b57ab09399d626770ff1d471f8d5a4a074 (diff) | |
| download | tcl-230c5c037a6ad78f260db8e2fb58b417aac289cb.zip tcl-230c5c037a6ad78f260db8e2fb58b417aac289cb.tar.gz tcl-230c5c037a6ad78f260db8e2fb58b417aac289cb.tar.bz2 | |
* generic/tclProc.c:
* generic/tclNamesp.c:
* generic/tclInt.h:
* generic/tclCmdIL.c:
* generic/tclBasic.c:
* generic/tclVar.c: Applied patch from Viktor Dukhovni to
rationalize TCL_LEAVE_ERR_MSG behavior when creating variables.
* generic/tclVar.c: Fixed bug in namespace tail computation.
Fixed bug where upvar could resurrect a namespace variable whose
namespace had been deleted.
* generic/tclCompile.c (TclCompileExprCmd): Eliminated yet another
bogus optimization in expression compilation.
* generic/tclCompile.c (CompileExprWord): Fixed exception stack
overflow bug caused by missing statement. [Bug: 928]
* generic/tclIOCmd.c:
* generic/tclBasic.c: Objectified the "open" command. [Bug: 1113]
FossilOrigin-Name: 8da7bff5d551487e76df9227e0d74f1de76c2787
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 3c67280..15a30a7 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.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: tclCompile.c,v 1.12 1999/02/02 22:26:11 stanton Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.13 1999/02/03 00:55:04 stanton Exp $ */ #include "tclInt.h" @@ -3879,7 +3879,7 @@ TclCompileExprCmd(interp, string, lastChar, flags, envPtr) /* * Scan the concatenated expression's characters looking for any - * '['s or (for now) '\'s. If any are found, just call the expr cmd + * '['s or '\'s or '$'s. If any are found, just call the expr cmd * at runtime. */ @@ -3888,7 +3888,7 @@ TclCompileExprCmd(interp, string, lastChar, flags, envPtr) last = first + (Tcl_DStringLength(&buffer) - 1); for (p = first; p <= last; p++) { c = *p; - if ((c == '[') || (c == '\\')) { + if ((c == '[') || (c == '\\') || (c == '$')) { inlineCode = 0; break; } |