conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

block comment reader must not consume the character right after the 

comment end
This commit is contained in:
Yuichi Nishiwaki 2014-06-27 08:21:53 +09:00
parent 0b85e251a2
commit e1ca64b56e
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/read.c
View File

@ -69,24 +69,22 @@ static pic_value
read_block_comment(pic_state *pic, struct pic_port *port, char c)
{
char x, y;
int i;
int i = 1;
UNUSED(pic);
UNUSED(c);
x = next(port);
y = next(port);
i = 1;
while (x != EOF && y != EOF && i > 0) {
while (y != EOF && i > 0) {
x = y;
y = next(port);
if (x == '|' && y == '#') {
i--;
}
if (x == '#' && y == '|') {
i++;
}
x = y;
y = next(port);
}
return pic_undef_value();