From 065432a84e9b80968838004a1d784708fff3f295 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Fri, 3 May 2002 08:23:12 +0000 Subject: 2002-05-03 Pierre Muller * f-exp.y: Also use new prev_lexptr variable to improve error reporting. Based on Michael Snyder 2002-04-24 dated patch to c-exp.y. * jv-exp.y: Likewise. * m2-exp.y: Likewise. --- gdb/f-exp.y | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'gdb/f-exp.y') diff --git a/gdb/f-exp.y b/gdb/f-exp.y index 7cbfd5a..e1168772 100644 --- a/gdb/f-exp.y +++ b/gdb/f-exp.y @@ -924,7 +924,9 @@ yylex () char *tokstart; retry: - + + prev_lexptr = lexptr; + tokstart = lexptr; /* First of all, let us make sure we are not dealing with the @@ -1171,5 +1173,8 @@ void yyerror (msg) char *msg; { + if (prev_lexptr) + lexptr = prev_lexptr; + error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr); } -- cgit v1.1