From e75be73688dece12ae4d0b844cb8c3cddb9d45be Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Sun, 29 Jan 2012 10:43:41 +0100
Subject: [PATCH] --tlsEmulation:on works in debug mode again

---
 lib/system/alloc.nim | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/system/alloc.nim b/lib/system/alloc.nim
index a5a3c0e03e..f3474a527c 100755
--- a/lib/system/alloc.nim
+++ b/lib/system/alloc.nim
@@ -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)