From 42dad650e036efdc6e76e64ac0e30c4571937a6e Mon Sep 17 00:00:00 2001
From: Araq <rumpf_a@web.de>
Date: Mon, 16 Jan 2012 00:04:56 +0100
Subject: [PATCH] bugfix: boehm GC improvements

---
 lib/system/mmdisp.nim | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/system/mmdisp.nim b/lib/system/mmdisp.nim
index 33df8e89a5..dc4caee48a 100755
--- a/lib/system/mmdisp.nim
+++ b/lib/system/mmdisp.nim
@@ -96,6 +96,10 @@ when defined(boehmgc):
     ## Return the total number of bytes allocated in this process.
     ## Never decreases.
 
+  proc allocAtomic(size: int): pointer =
+    result = boehmAllocAtomic(size)
+    zeroMem(result, size)
+
   when not defined(useNimRtl):
     
     proc alloc(size: int): pointer =
@@ -109,10 +113,6 @@ when defined(boehmgc):
       if result == nil: raiseOutOfMem()
     proc dealloc(p: Pointer) = boehmDealloc(p)
     
-    proc allocAtomic(size: int): pointer =
-      result = boehmAllocAtomic(size)
-      zeroMem(result, size)
-
     proc allocShared(size: int): pointer =
       result = boehmAlloc(size)
       if result == nil: raiseOutOfMem()