fixed another semicolon related parsing bug

This commit is contained in:
Araq 2013-10-02 07:57:30 +02:00
commit 422327c010
2 changed files with 21 additions and 4 deletions

View file

@ -1798,10 +1798,9 @@ proc parseStmt(p: var TParser): PNode =
if p.tok.indent == p.currInd:
nil
elif p.tok.tokType == tkSemicolon:
while p.tok.tokType == tkSemicolon:
getTok(p)
if p.tok.indent < 0 or p.tok.indent == p.currInd: discard
else: return
getTok(p)
if p.tok.indent < 0 or p.tok.indent == p.currInd: discard
else: break
else:
if p.tok.indent > p.currInd:
parMessage(p, errInvalidIndentation)