20-fyi-fix-percent-lex.patch

[Akim Demaille]

Index: ChangeLog
from  Akim Demaille  <address@hidden>
        * src/lex.c (parse_percent_token): Be sure to 0-end token_buffer
        before returning.
        Reported by Benoit Perrot.
        
Index: THANKS
--- THANKS Sat, 26 Jan 2002 15:02:41 +0100 akim
+++ THANKS Fri, 01 Mar 2002 16:25:26 +0100 akim
@@ -6,6 +6,7 @@
 Albert Chin-A-Young     address@hidden
 Alexander Belopolsky    address@hidden
 Arnold Robbins         address@hidden
+Benoit Perrot           address@hidden
 Cris van Pelt           address@hidden
 Daniel Hagerty          address@hidden
 David J. MacKenzie      address@hidden
Index: src/lex.c
--- src/lex.c Sat, 26 Jan 2002 15:02:41 +0100 akim
+++ src/lex.c Fri, 01 Mar 2002 16:24:21 +0100 akim
@@ -485,44 +485,40 @@
   obstack_1grow (&token_obstack, '%');
   obstack_1grow (&token_obstack, c);
 
-  switch (c)
+  if (!isalpha (c))
     {
-    case '%':
+      obstack_1grow (&token_obstack, '\0');
       token_buffer = obstack_finish (&token_obstack);
-      return tok_two_percents;
 
-    case '{':
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_percent_left_curly;
+      switch (c)
+       {
+       case '%':
+         return tok_two_percents;
 
-      /* The following guys are here for backward compatibility with
-        very ancient Yacc versions.  The paper of Johnson mentions
-        them (as ancient :).  */
-    case '<':
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_left;
+       case '{':
+         return tok_percent_left_curly;
 
-    case '>':
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_right;
+         /* The following guys are here for backward compatibility with
+            very ancient Yacc versions.  The paper of Johnson mentions
+            them (as ancient :).  */
+       case '<':
+         return tok_left;
 
-    case '2':
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_nonassoc;
+       case '>':
+         return tok_right;
 
-    case '0':
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_token;
+       case '2':
+         return tok_nonassoc;
 
-    case '=':
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_prec;
-    }
+       case '0':
+         return tok_token;
 
-  if (!isalpha (c))
-    {
-      token_buffer = obstack_finish (&token_obstack);
-      return tok_illegal;
+       case '=':
+         return tok_prec;
+
+       default:
+         return tok_illegal;
+       }
     }
 
   while (c = getc (finput), isalpha (c) || c == '_' || c == '-')