jberthold/packman
1
1
Fork 0
mirror of https://github.com/jberthold/packman.git synced 2024-09-11 13:45:24 +03:00
Code Issues Projects Releases Wiki Activity

fix debug version of Pack.c

Browse Source
This commit is contained in:
Jost Berthold 2015-12-01 01:46:21 +11:00
parent dfb7c60502
commit 7f8cc06ac8
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cbits/Pack.c
View File

@ -167,7 +167,7 @@ STATIC_INLINE StgInfoTable* getClosureInfo(StgClosure* node, StgInfoTable* info,
#ifdef LIBRARY_CODE
// remains local when code is stand-alone for the library
STATIC_INLINE rtsBool pmIsBlackhole(StgClosure* node);
#define isBlackHole pmIsBlackHole,
#define isBlackhole pmIsBlackhole
#else
// if compiling for the RTS: used in other files, declared in Parallel.h
// rtsBool isBlackhole(StgClosure* node);
@ -463,7 +463,10 @@ STATIC_INLINE rtsBool roomToPack(PackState* p, nat size)
// quick test for blackholes. Available somewhere else?
rtsBool pmIsBlackhole(StgClosure* node) {
#ifdef LIBRARY_CODE
STATIC_INLINE
#endif
rtsBool isBlackhole(StgClosure* node) {
// since ghc-7.0, blackholes are used as indirections. inspect indirectee.
if(((StgInfoTable*)get_itbl(UNTAG_CLOSURE(node)))->type == BLACKHOLE) {
StgClosure* indirectee = ((StgInd*)node)->indirectee;
@ -2551,7 +2554,8 @@ print:
case MVAR_CLEAN:
case MVAR_DIRTY:
if (((StgMVar *)p)->value != &stg_END_TSO_QUEUE_closure)
// follow MVar contents unless empty (END_TSO_QUEUE is magic)
if (((StgMVar *)p)->value != (StgClosure*) END_TSO_QUEUE)
graphFingerPrint_(fp, visited, ((StgMVar *)p)->value);
break;