projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove fgl from extralibs
[ghc-hetmet.git]
/
rts
/
Sanity.c
diff --git
a/rts/Sanity.c
b/rts/Sanity.c
index
b8bf5d4
..
3df5aef
100644
(file)
--- a/
rts/Sanity.c
+++ b/
rts/Sanity.c
@@
-257,7
+257,13
@@
checkClosure( StgClosure* p )
ASSERT(!closure_STATIC(p));
}
ASSERT(!closure_STATIC(p));
}
- info = get_itbl(p);
+ info = p->header.info;
+
+ if (IS_FORWARDING_PTR(info)) {
+ barf("checkClosure: found EVACUATED closure %d", info->type);
+ }
+ info = INFO_PTR_TO_STRUCT(info);
+
switch (info->type) {
case MVAR_CLEAN:
switch (info->type) {
case MVAR_CLEAN:
@@
-506,10
+512,6
@@
checkClosure( StgClosure* p )
return sizeofW(StgTRecHeader);
}
return sizeofW(StgTRecHeader);
}
-
- case EVACUATED:
- barf("checkClosure: found EVACUATED closure %d",
- info->type);
default:
barf("checkClosure (closure type %d)", info->type);
}
default:
barf("checkClosure (closure type %d)", info->type);
}