2002-04-25 Pierre Muller <muller@ics.u-strasbg.fr>

	* p-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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 7454f519cc157dddb050bf4143e8ba63f7b2627d..1ae21c44eedcb5bdaf2756d8fb09fdbfe59f7f95 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-25  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * p-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.
+
 2002-04-25  Jason Thorpe  <thorpej@wasabisystems.com>
 
        * alpha-tdep.c (alpha_breakpoint_from_pc): New function.

diff --git a/gdb/p-exp.y b/gdb/p-exp.y
index b130e970e4b539011ed7ea6d00c24c423cc89309..8efb45019f491efa55b5d5260fce4ac23d155fce 100644 (file)
--- a/gdb/p-exp.y
+++ b/gdb/p-exp.y
@@ -947,6 +947,8 @@ yylex ()
 
  retry:
 
+  prev_lexptr = lexptr;
+
   tokstart = lexptr;
   explen = strlen (lexptr);
   /* See if it is a special token of length 3.  */
@@ -1481,5 +1483,8 @@ void
 yyerror (msg)
      char *msg;
 {
+  if (prev_lexptr)
+    lexptr = prev_lexptr;
+
   error ("A %s in expression, near `%s'.", (msg ? msg : "error"), lexptr);
 }