*allocShared implementations for boehm and go allocators now depend on the proper *allocImpl procs

Author: Ico Doornekamp

lib/system/alloc.nim

@@ -1050,10 +1050,10 @@ template instantiateForRegion(allocator: untyped) {.dirty.} =
       result = alloc(sharedHeap, size)
       releaseSys(heapLock)
     else:
-      result = alloc(size)
+      result = allocImpl(size)
 
   proc allocShared0Impl(size: Natural): pointer =
-    result = allocShared(size)
+    result = allocSharedImpl(size)
     zeroMem(result, size)
 
   proc deallocSharedImpl(p: pointer) =
@@ -1062,23 +1062,23 @@ template instantiateForRegion(allocator: untyped) {.dirty.} =
       dealloc(sharedHeap, p)
       releaseSys(heapLock)
     else:
-      dealloc(p)
+      deallocImpl(p)
 
   proc reallocSharedImpl(p: pointer, newSize: Natural): pointer =
     when hasThreadSupport:
       acquireSys(heapLock)
       result = realloc(sharedHeap, p, newSize)
       releaseSys(heapLock)
     else:
-      result = realloc(p, newSize)
+      result = reallocImpl(p, newSize)
 
   proc reallocShared0Impl(p: pointer, oldSize, newSize: Natural): pointer =
     when hasThreadSupport:
       acquireSys(heapLock)
       result = realloc0(sharedHeap, p, oldSize, newSize)
       releaseSys(heapLock)
     else:
-      result = realloc0(p, oldSize, newSize)
+      result = realloc0Impl(p, oldSize, newSize)
 
   when hasThreadSupport:
     template sharedMemStatsShared(v: int) =

lib/system/mmdisp.nim

@@ -122,11 +122,11 @@ when defined(boehmgc):
         zeroMem(cast[pointer](cast[int](result) + oldsize), newsize - oldsize)
     proc deallocImpl(p: pointer) = boehmDealloc(p)
 
-    proc allocSharedImpl(size: Natural): pointer = alloc(size)
-    proc allocShared0Impl(size: Natural): pointer = alloc(size)
-    proc reallocSharedImpl(p: pointer, newSize: Natural): pointer = realloc(p, newSize)
-    proc reallocShared0Impl(p: pointer, oldSize, newSize: Natural): pointer = realloc0Impl(p, newSize, oldSize)
-    proc deallocSharedImpl(p: pointer) = dealloc(p)
+    proc allocSharedImpl(size: Natural): pointer = allocImpl(size)
+    proc allocShared0Impl(size: Natural): pointer = alloc0Impl(size)
+    proc reallocSharedImpl(p: pointer, newsize: Natural): pointer = reallocImpl(p, newsize)
+    proc reallocShared0Impl(p: pointer, oldsize, newsize: Natural): pointer = realloc0Impl(p, oldsize, newsize)
+    proc deallocSharedImpl(p: pointer) = deallocImpl(p)
 
     when hasThreadSupport:
       proc getFreeSharedMem(): int =
@@ -281,19 +281,11 @@ elif defined(gogc):
   proc deallocImpl(p: pointer) =
     discard
 
-  proc allocSharedImpl(size: Natural): pointer =
-    result = alloc(size)
-
-  proc allocShared0Impl(size: Natural): pointer =
-    result = alloc0(size)
-
-  proc reallocSharedImpl(p: pointer, newsize: Natural): pointer =
-    result = realloc(p, newsize)
-
-  proc reallocShared0Impl(p: pointer, oldsize, newsize: Natural): pointer =
-    result = realloc0(p, oldsize, newsize)
-
-  proc deallocSharedImpl(p: pointer) = dealloc(p)
+  proc allocSharedImpl(size: Natural): pointer = allocImpl(size)
+  proc allocShared0Impl(size: Natural): pointer = alloc0Impl(size)
+  proc reallocSharedImpl(p: pointer, newsize: Natural): pointer = reallocImpl(p, newsize)
+  proc reallocShared0Impl(p: pointer, oldsize, newsize: Natural): pointer = realloc0Impl(p, oldsize, newsize)
+  proc deallocSharedImpl(p: pointer) = deallocImpl(p)
 
   when hasThreadSupport:
     proc getFreeSharedMem(): int = discard

tests/destructor/tbintree2.nim

@@ -1,7 +1,7 @@
 discard """
   cmd: '''nim c -d:allocStats --newruntime $file'''
   output: '''0
-(allocCount: 12, deallocCount: 9)'''
+(allocCount: 6, deallocCount: 6)'''
 """
 
 import system / ansi_c

tests/destructor/tgcdestructors.nim

@@ -10,7 +10,7 @@ a: @[4, 2, 3]
 0
 30
 true
-(allocCount: 123, deallocCount: 82)'''
+(allocCount: 41, deallocCount: 41)'''
 """
 
 include system / ansi_c