[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
20-fyi-fix-percent-lex.patch
From: |
Akim Demaille |
Subject: |
20-fyi-fix-percent-lex.patch |
Date: |
Mon, 04 Mar 2002 13:06:36 +0100 |
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 == '-')
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- 20-fyi-fix-percent-lex.patch,
Akim Demaille <=