fixes critical 'do' parsing bug
This commit is contained in:
parent
64afb1039b
commit
0134a51a7c
2 changed files with 82 additions and 2 deletions
|
|
@ -964,8 +964,9 @@ proc parseDoBlock(p: var TParser): PNode =
|
|||
proc parseDoBlocks(p: var TParser, call: PNode) =
|
||||
#| doBlocks = doBlock ^* IND{=}
|
||||
if p.tok.tokType == tkDo:
|
||||
addSon(call, parseDoBlock(p))
|
||||
while sameInd(p) and p.tok.tokType == tkDo:
|
||||
#withInd(p):
|
||||
# addSon(call, parseDoBlock(p))
|
||||
while sameOrNoInd(p) and p.tok.tokType == tkDo:
|
||||
addSon(call, parseDoBlock(p))
|
||||
|
||||
proc parseProcExpr(p: var TParser, isExpr: bool): PNode =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue