From 233a468745d108ea845e0898e4177df2c3734fc0 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 16 Apr 2008 23:43:49 +0000 Subject: [PATCH] optimisation for isAlive() --- rts/sm/GCAux.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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: -- 1.7.10.4