From ee35227b9b447fe9dc73ab5d676d6fc2cf4912ec Mon Sep 17 00:00:00 2001 From: "simonmar@microsoft.com" Date: Wed, 19 Jul 2006 11:16:38 +0000 Subject: [PATCH] fix eran error message by reordering a couple of tests --- rts/MBlock.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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; -- 1.7.10.4