cleaned up some debugging code

This commit is contained in:
Zahary Karadjov 2013-01-20 21:19:49 +02:00
commit 86bf97a730
8 changed files with 66 additions and 110 deletions

View file

@ -509,10 +509,10 @@ proc getEscapedChar(L: var TLexer, tok: var TToken) =
else: lexMessage(L, errInvalidCharacterConstant)
else: lexMessage(L, errInvalidCharacterConstant)
proc newString(s: cstring, l: int): string =
proc newString(s: cstring, len: int): string =
## XXX, how come there is no support for this?
result = newString(l)
for i in 0 .. <l:
result = newString(len)
for i in 0 .. <len:
result[i] = s[i]
proc HandleCRLF(L: var TLexer, pos: int): int =