Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix parsing for a corner case in ocamlyacc 

A'"'" was misparsed (the ' was not associated with the A as it should
be)
master
Demi Obenour 2017-01-15 15:15:28 -05:00 committed by David Allsopp
parent 795f1bb37a
commit 28767a90ae
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yacc/reader.c
View File

@ -1282,13 +1282,13 @@ loop:
goto loop;
}
}
if (isalpha(c) || c == '_' || c == '$')
if (isalpha(c) || c == '_' || c == '$' || In_bitmap(caml_ident_start, c))
{
do
{
putc(c, f);
c = *++cptr;
} while (isalnum(c) || c == '_' || c == '$');
} while (isalnum(c) || c == '_' || c == '$' || c == '\'' || In_bitmap(caml_ident_body, c));
goto loop;
}
if (c == '}' && depth == 1) {