From: simonmar@microsoft.com <unknown>
Date: Wed, 19 Jul 2006 11:16:38 +0000 (+0000)
Subject: fix eran error message by reordering a couple of tests
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ee35227b9b447fe9dc73ab5d676d6fc2cf4912ec;p=ghc-hetmet.git

fix eran error message by reordering a couple of tests
---

diff --git a/rts/MBlock.c b/rts/MBlock.c
index 6d05940..76645e2 100644
--- a/rts/MBlock.c
+++ b/rts/MBlock.c
@@ -395,14 +395,14 @@ getMBlocks(nat n)
      }
   }
 
-  if (((W_)ret & MBLOCK_MASK) != 0) {
-    barf("getMBlocks: misaligned block returned");
-  }
-
   if (ret == (void*)-1) {
      barf("getMBlocks: unknown memory allocation failure on Win32.");
   }
 
+  if (((W_)ret & MBLOCK_MASK) != 0) {
+    barf("getMBlocks: misaligned block returned");
+  }
+
   debugTrace(DEBUG_gc, "allocated %d megablock(s) at 0x%x",n,(nat)ret);
   next_request = (char*)next_request + size;