--tlsEmulation:on works in debug mode again

This commit is contained in:
Araq 2012-01-29 10:43:41 +01:00
commit e75be73688

View file

@ -172,10 +172,12 @@ var
bottomData: TAvlNode
bottom: PAvlNode
{.push stack_trace: off.}
proc initAllocator() =
bottom = addr(bottomData)
bottom.link[0] = bottom
bottom.link[1] = bottom
{.pop.}
proc incCurrMem(a: var TMemRegion, bytes: int) {.inline.} =
inc(a.currMem, bytes)