From db76a303650647c24a9a3f998dbe66e1d1623a1c Mon Sep 17 00:00:00 2001
From: Esa Ilari Vuokko <ei@vuokko.info>
Date: Wed, 30 Aug 2006 18:55:40 +0000
Subject: [PATCH] Fix Windows MBlock alloctor bookkeeping bug

---
 rts/MBlock.c |   20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/rts/MBlock.c b/rts/MBlock.c
index 9058205..edde679 100644
--- a/rts/MBlock.c
+++ b/rts/MBlock.c
@@ -340,16 +340,16 @@ allocNew(nat n) {
         sysErrorBelch(
             "getMBlocks: VirtualAlloc MEM_RESERVE %d blocks failed", n);
     } else {
-        if(allocs==0) {
-            allocs=rec;
-            rec->next=0;
-        } else {
-            alloc_rec* it;
-            it=allocs;
-            for(; it->next!=0 && it->next->base<rec->base; it=it->next) ;
-            rec->next=it->next;
-            it->next=rec;
-        }
+		alloc_rec temp;
+		temp.base=0; temp.size=0; temp.next=allocs;
+
+        alloc_rec* it;
+        it=&temp;
+        for(; it->next!=0 && it->next->base<rec->base; it=it->next) ;
+        rec->next=it->next;
+        it->next=rec;
+
+		allocs=temp.next;
         debugTrace(DEBUG_gc, "allocated %d megablock(s) at 0x%x",n,(nat)rec->base);
     }
     return rec;
-- 
1.7.10.4