X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMBlock.c;fp=rts%2FMBlock.c;h=15a4d2300e6b8e40652306f5b7c8b8248920add0;hb=7ee5c6affd10895ddc3b1e09550069391faaa40a;hp=f317690d4c50640cbddec33e118430d5d7c9cc4f;hpb=ed92004880e4a79457338edfe993f968360fbbfd;p=ghc-hetmet.git

diff --git a/rts/MBlock.c b/rts/MBlock.c
index f317690..15a4d23 100644
--- a/rts/MBlock.c
+++ b/rts/MBlock.c
@@ -450,8 +450,10 @@ commitBlocks(char* base, int size) {
         size_delta = it->size - (base-it->base);
         if(size_delta>size) size_delta=size;
         temp = VirtualAlloc(base, size_delta, MEM_COMMIT, PAGE_READWRITE);
-        if(temp==0)
-            debugBelch("getMBlocks: VirtualAlloc MEM_COMMIT failed: %ld", GetLastError());
+        if(temp==0) {
+            errorBelch("getMBlocks: VirtualAlloc MEM_COMMIT failed: %ld\n", GetLastError());
+	    stg_exit(EXIT_FAILURE);
+	}
         size-=size_delta;
         base+=size_delta;
     }
@@ -465,10 +467,12 @@ getMBlocks(nat n) {
         alloc_rec* alloc;
         alloc = allocNew(n);
         /* We already belch in allocNew if it fails */
-        if(alloc!=0) {
+	if (alloc == 0) {
+	    stg_exit(EXIT_FAILURE);
+	} else {
             insertFree(alloc->base, alloc->size);
             ret = findFreeBlocks(n);
-        }
+	}
     }
 
     if(ret!=0) {
@@ -511,7 +515,8 @@ freeAllMBlocks(void)
         it=allocs;
         for(; it!=0; ) {
             if(!VirtualFree((void*)it->base, 0, MEM_RELEASE)) {
-                debugBelch("freeAllMBlocks: VirtualFree MEM_RELEASE failed with %ld", GetLastError());
+                errorBelch("freeAllMBlocks: VirtualFree MEM_RELEASE failed with %ld", GetLastError());
+		stg_exit(EXIT_FAILURE);
             }
             next = it->next;
             stgFree(it);