diff options
| author | Pierre Muller <muller@ics.u-strasbg.fr> | 2002-05-03 08:23:12 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@ics.u-strasbg.fr> | 2002-05-03 08:23:12 +0000 |
| commit | f71efe0fa5d3293d699aef6bc953326f409f3d60 (patch) | |
| tree | 9ca9d7b3c7e34e6c337fcf06096820cb92d18fda /gdb/f-exp.y | |
| parent | fd4695e41be1032ad5fd7bb5576f7e0bd7288ac0 (diff) | |
| download | gdb-f71efe0fa5d3293d699aef6bc953326f409f3d60.tar.gz | |
2002-05-03 Pierre Muller <muller@ics.u-strasbg.fr>
* 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.
Diffstat (limited to 'gdb/f-exp.y')
| -rw-r--r-- | gdb/f-exp.y | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y index 7cbfd5ac8f2..e11687726ef 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); } |