From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Wed, 16 Apr 2008 23:43:49 +0000 (+0000)
Subject: optimisation for isAlive()
X-Git-Tag: Before_cabalised-GHC~191
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=233a468745d108ea845e0898e4177df2c3734fc0

optimisation for isAlive()
---

diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index 0fb61f1..df47e18 100644
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -41,7 +41,6 @@ isAlive(StgClosure *p)
     q = UNTAG_CLOSURE(p);
 
     ASSERT(LOOKS_LIKE_CLOSURE_PTR(q));
-    info = get_itbl(q);
 
     // ignore static closures 
     //
@@ -71,6 +70,7 @@ isAlive(StgClosure *p)
 	return p;
     }
 
+    info = get_itbl(q);
     switch (info->type) {
 
     case IND: