GC stack scanning cares about interior pointers

This commit is contained in:
Araq 2011-12-30 11:03:01 +01:00
commit 73919e3082
10 changed files with 328 additions and 29 deletions

View file

@ -44,7 +44,8 @@ proc main(infile, outfile: string, options: PParserOptions) =
var module = parseUnit(p)
closeParser(p)
renderModule(module, outfile)
rawMessage(hintSuccessX, [$gLinesCompiled, $(getTime() - start)])
rawMessage(hintSuccessX, [$gLinesCompiled, $(getTime() - start),
formatSize(getTotalMem())])
var
infile = ""

View file

@ -1594,7 +1594,7 @@ proc parseSwitch(p: var TParser): PNode =
eat(p, pxCurlyRi)
proc addStmt(sl, a: PNode) =
# merge type sections is possible:
# merge type sections if possible:
if a.kind != nkTypeSection or sonsLen(sl) == 0 or
lastSon(sl).kind != nkTypeSection:
addSon(sl, a)