projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement -fwarn-dodgy-imports
[ghc-hetmet.git]
/
rts
/
Sanity.c
diff --git
a/rts/Sanity.c
b/rts/Sanity.c
index
48d913c
..
7de8ec7
100644
(file)
--- a/
rts/Sanity.c
+++ b/
rts/Sanity.c
@@
-137,7
+137,6
@@
checkStackFrame( StgPtr c )
// small bitmap cases (<= 32 entries)
case STOP_FRAME:
case RET_SMALL:
// small bitmap cases (<= 32 entries)
case STOP_FRAME:
case RET_SMALL:
- case RET_VEC_SMALL:
size = BITMAP_SIZE(info->i.layout.bitmap);
checkSmallBitmap((StgPtr)c + 1,
BITMAP_BITS(info->i.layout.bitmap), size);
size = BITMAP_SIZE(info->i.layout.bitmap);
checkSmallBitmap((StgPtr)c + 1,
BITMAP_BITS(info->i.layout.bitmap), size);
@@
-153,7
+152,6
@@
checkStackFrame( StgPtr c )
}
case RET_BIG: // large bitmap (> 32 entries)
}
case RET_BIG: // large bitmap (> 32 entries)
- case RET_VEC_BIG:
size = GET_LARGE_BITMAP(&info->i)->size;
checkLargeBitmap((StgPtr)c + 1, GET_LARGE_BITMAP(&info->i), size);
return 1 + size;
size = GET_LARGE_BITMAP(&info->i)->size;
checkLargeBitmap((StgPtr)c + 1, GET_LARGE_BITMAP(&info->i), size);
return 1 + size;
@@
-324,7
+322,6
@@
checkClosure( StgClosure* p )
ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->instrs));
ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->literals));
ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->ptrs));
ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->instrs));
ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->literals));
ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->ptrs));
- ASSERT(LOOKS_LIKE_CLOSURE_PTR(bco->itbls));
return bco_sizeW(bco);
}
return bco_sizeW(bco);
}
@@
-362,9
+359,7
@@
checkClosure( StgClosure* p )
case RET_BCO:
case RET_SMALL:
case RET_BCO:
case RET_SMALL:
- case RET_VEC_SMALL:
case RET_BIG:
case RET_BIG:
- case RET_VEC_BIG:
case RET_DYN:
case UPDATE_FRAME:
case STOP_FRAME:
case RET_DYN:
case UPDATE_FRAME:
case STOP_FRAME: