From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 19 Jun 2008 10:09:04 +0000 (+0000)
Subject: fix a tiny bug spotted by gcc 4.3
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a57e55b095c48d8ca27b2ec13f4d138655618577

fix a tiny bug spotted by gcc 4.3
---

diff --git a/rts/sm/BlockAlloc.c b/rts/sm/BlockAlloc.c
index 0bffa82..81baf6c 100644
--- a/rts/sm/BlockAlloc.c
+++ b/rts/sm/BlockAlloc.c
@@ -332,7 +332,7 @@ allocGroup (nat n)
 
     ln = log_2_ceil(n);
 
-    while (free_list[ln] == NULL && ln < MAX_FREE_LIST) {
+    while (ln < MAX_FREE_LIST && free_list[ln] == NULL) {
         ln++;
     }