summaryrefslogtreecommitdiffstats
path: root/generic/tclParseExpr.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-07-05 20:42:15 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-07-05 20:42:15 (GMT)
commitcdc9efa44a519044e0c555101bd6630f96af2eaf (patch)
tree76eed21de9dc75f335989c5163678b834bc0134a /generic/tclParseExpr.c
parentf8202fbf0e8d9c875afd03460d20b5b83c0aa10c (diff)
downloadtcl-cdc9efa44a519044e0c555101bd6630f96af2eaf.zip
tcl-cdc9efa44a519044e0c555101bd6630f96af2eaf.tar.gz
tcl-cdc9efa44a519044e0c555101bd6630f96af2eaf.tar.bz2
Improvements to error context messages
Diffstat (limited to 'generic/tclParseExpr.c')
-rw-r--r--generic/tclParseExpr.c12
1 files changed, 9 insertions, 3 deletions
diff --git a/generic/tclParseExpr.c b/generic/tclParseExpr.c
index 98683cc..9cbc34f 100644
--- a/generic/tclParseExpr.c
+++ b/generic/tclParseExpr.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclParseExpr.c,v 1.33 2006/07/05 05:34:45 dgp Exp $
+ * RCS: @(#) $Id: tclParseExpr.c,v 1.34 2006/07/05 20:42:15 dgp Exp $
*/
#define OLD_EXPR_PARSER 0
@@ -2293,6 +2293,8 @@ Tcl_ParseExpr(
code = Tcl_ParseQuotedString(interp, start, numBytes,
&scratch, 1, &end);
if (code != TCL_OK) {
+ scanned = scratch.term - start;
+ scanned += (scanned < numBytes);
continue;
}
scanned = end - start;
@@ -2310,6 +2312,8 @@ Tcl_ParseExpr(
case VARIABLE:
code = Tcl_ParseVarName(interp, start, numBytes, &scratch, 1);
if (code != TCL_OK) {
+ scanned = scratch.term - start;
+ scanned += (scanned < numBytes);
continue;
}
tokenPtr = scratch.tokenPtr + nodePtr->token + 1;
@@ -2356,11 +2360,13 @@ Tcl_ParseExpr(
break;
}
}
+ end = start;
+ start = tokenPtr->start;
if (code != TCL_OK) {
+ scanned = parsePtr->term - start;
+ scanned += (scanned < numBytes);
continue;
}
- end = start;
- start = tokenPtr->start;
scanned = end - start;
tokenPtr->size = scanned;
scratch.numTokens++;