--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
|
bottomData: TAvlNode
|
||||||
bottom: PAvlNode
|
bottom: PAvlNode
|
||||||
|
|
||||||
|
{.push stack_trace: off.}
|
||||||
proc initAllocator() =
|
proc initAllocator() =
|
||||||
bottom = addr(bottomData)
|
bottom = addr(bottomData)
|
||||||
bottom.link[0] = bottom
|
bottom.link[0] = bottom
|
||||||
bottom.link[1] = bottom
|
bottom.link[1] = bottom
|
||||||
|
{.pop.}
|
||||||
|
|
||||||
proc incCurrMem(a: var TMemRegion, bytes: int) {.inline.} =
|
proc incCurrMem(a: var TMemRegion, bytes: int) {.inline.} =
|
||||||
inc(a.currMem, bytes)
|
inc(a.currMem, bytes)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue