Skip to content
GitLab
Commit 233a4687 authored by simonmarhaskell@gmail.com's avatar simonmarhaskell@gmail.com
Browse files

optimisation for isAlive()

parent 01e06bc4
Hide whitespace changes
Inline Side-by-side
rts/sm/GCAux.c
View file @ 233a4687
......@@ -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:
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment