diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:43:49 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:43:49 +0000 |
| commit | 233a468745d108ea845e0898e4177df2c3734fc0 (patch) | |
| tree | a94c289c7327c79d0ee64e045fdad0aac2c11ad1 /rts | |
| parent | 01e06bc40a34e0e2d5e3846ac332eb287ecd21cb (diff) | |
| download | haskell-233a468745d108ea845e0898e4177df2c3734fc0.tar.gz | |
optimisation for isAlive()
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/sm/GCAux.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c index 0fb61f16a2..df47e18794 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: |