--tlsEmulation:on works in debug mode again

This commit is contained in:
Araq
2012-01-29 10:43:41 +01:00
parent 40881a4140
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)