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.
This commit is contained in:
Pierre Muller 2002-05-03 08:23:12 +00:00
parent d1a6c2428d
commit 065432a84e
4 changed files with 24 additions and 1 deletions

View File

@ -1,3 +1,11 @@
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.
2002-05-02 Elena Zannoni <ezannoni@redhat.com>
* valops.c (value_arg_coerce): Don't coerce arrays to pointers if

View File

@ -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);
}

View File

@ -862,6 +862,8 @@ yylex ()
retry:
prev_lexptr = lexptr;
tokstart = lexptr;
/* See if it is a special token of length 3. */
for (i = 0; i < sizeof tokentab3 / sizeof tokentab3[0]; i++)
@ -1207,6 +1209,9 @@ void
yyerror (msg)
char *msg;
{
if (prev_lexptr)
lexptr = prev_lexptr;
error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr);
}

View File

@ -821,6 +821,8 @@ yylex ()
retry:
prev_lexptr = lexptr;
tokstart = lexptr;
@ -1090,5 +1092,8 @@ void
yyerror (msg)
char *msg;
{
if (prev_lexptr)
lexptr = prev_lexptr;
error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr);
}