--tlsEmulation:on works in debug mode again
This commit is contained in:
parent
40881a4140
commit
e75be73688
1 changed files with 2 additions and 0 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue