lexer, parser cleanup; boehm gc for mac os x

This commit is contained in:
Araq 2011-05-17 21:14:30 +02:00
commit 9207492bb9
6 changed files with 104 additions and 100 deletions

View file

@ -165,11 +165,11 @@ proc CommandScan(filename: string) =
if stream != nil:
var
L: TLexer
tok: PToken
new(tok)
tok: TToken
initToken(tok)
openLexer(L, f, stream)
while true:
rawGetTok(L, tok[])
rawGetTok(L, tok)
PrintTok(tok)
if tok.tokType == tkEof: break
CloseLexer(L)