diff options
| author | griffin <brian_griffin@mentor.com> | 2017-02-25 16:22:18 (GMT) |
|---|---|---|
| committer | griffin <brian_griffin@mentor.com> | 2017-02-25 16:22:18 (GMT) |
| commit | c08913902e0e02aac4ea1e1377fa40d0d43ddf63 (patch) | |
| tree | 589d7346694e8ac59b3b28d09fa84bee7329225e /generic | |
| parent | 1dc530c783c3725083e9fcc69b3b3f6eb4d69a85 (diff) | |
| download | tcl-c08913902e0e02aac4ea1e1377fa40d0d43ddf63.zip tcl-c08913902e0e02aac4ea1e1377fa40d0d43ddf63.tar.gz tcl-c08913902e0e02aac4ea1e1377fa40d0d43ddf63.tar.bz2 | |
Some cleanup
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompExpr.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 7074253..9c42ee9 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -743,17 +743,19 @@ ParseExpr( */ Tcl_Parse vparse; - const char *varend, *varstart = &start[TclParseAllWhiteSpace(start, numBytes)]; + const char *varend; + const char *varstart = &start[TclParseAllWhiteSpace(start, numBytes)]; int code, len; - TclParseInit(interp, varstart, numBytes, &vparse); code = Tcl_ParseVarName(NULL, varstart, numBytes, &vparse, 0); - if (code != TCL_OK) { - //fprintf(stderr, "Replace me with proper error!\n"); - } len = vparse.tokenPtr[0].size; varend = varstart+len; Tcl_FreeParse(&vparse); + /* + * An error here just means it's not a valid variable name, + * so continue on to treat as a function + */ + /* Look ahead for Assignment operator ':=' */ if (code == TCL_OK && varend[TclParseAllWhiteSpace(varend,numBytes-len)] == ':' && |