X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FWeak.c;h=f5e918a92132d95b0fbc79249df36d09a0b20a6a;hb=1baa2b524831211cb66317194216d41325d65f1c;hp=f5c3a62bda18b41e5c2435d6cd48c0087bb82919;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/Weak.c b/rts/Weak.c
index f5c3a62..f5e918a 100644
--- a/rts/Weak.c
+++ b/rts/Weak.c
@@ -120,7 +120,7 @@ scheduleFinalizers(Capability *cap, StgWeak *list)
 
     debugTrace(DEBUG_weak, "weak: batching %d finalizers", n);
 
-    arr = (StgMutArrPtrs *)allocateLocal(cap, sizeofW(StgMutArrPtrs) + n);
+    arr = (StgMutArrPtrs *)allocate(cap, sizeofW(StgMutArrPtrs) + n);
     TICK_ALLOC_PRIM(sizeofW(StgMutArrPtrs), n, 0);
     SET_HDR(arr, &stg_MUT_ARR_PTRS_FROZEN_info, CCS_SYSTEM);
     arr->ptrs = n;