projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
FastTypes - delete ugly _signatures, comment on Bool not FastBool where the typecheck...
[ghc-hetmet.git]
/
rts
/
RetainerProfile.c
diff --git
a/rts/RetainerProfile.c
b/rts/RetainerProfile.c
index
17f5afb
..
4920e7d
100644
(file)
--- a/
rts/RetainerProfile.c
+++ b/
rts/RetainerProfile.c
@@
-20,9
+20,7
@@
#include "RtsUtils.h"
#include "RetainerProfile.h"
#include "RetainerSet.h"
#include "RtsUtils.h"
#include "RetainerProfile.h"
#include "RetainerSet.h"
-#include "Storage.h"
#include "Schedule.h"
#include "Schedule.h"
-#include "Stable.h"
#include "Printer.h"
#include "RtsFlags.h"
#include "Weak.h"
#include "Printer.h"
#include "RtsFlags.h"
#include "Weak.h"
@@
-620,9
+618,7
@@
push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
case RET_DYN:
case RET_BCO:
case RET_SMALL:
case RET_DYN:
case RET_BCO:
case RET_SMALL:
- case RET_VEC_SMALL:
case RET_BIG:
case RET_BIG:
- case RET_VEC_BIG:
// invalid objects
case IND:
case BLOCKED_FETCH:
// invalid objects
case IND:
case BLOCKED_FETCH:
@@
-986,9
+982,7
@@
pop( StgClosure **c, StgClosure **cp, retainer *r )
case STOP_FRAME:
case RET_BCO:
case RET_SMALL:
case STOP_FRAME:
case RET_BCO:
case RET_SMALL:
- case RET_VEC_SMALL:
case RET_BIG:
case RET_BIG:
- case RET_VEC_BIG:
// invalid objects
case IND:
case BLOCKED_FETCH:
// invalid objects
case IND:
case BLOCKED_FETCH:
@@
-1152,9
+1146,7
@@
isRetainer( StgClosure *c )
case RET_DYN:
case RET_BCO:
case RET_SMALL:
case RET_DYN:
case RET_BCO:
case RET_SMALL:
- case RET_VEC_SMALL:
case RET_BIG:
case RET_BIG:
- case RET_VEC_BIG:
// other cases
case IND:
case BLOCKED_FETCH:
// other cases
case IND:
case BLOCKED_FETCH:
@@
-1389,7
+1381,6
@@
retainStack( StgClosure *c, retainer c_child_r,
case CATCH_RETRY_FRAME:
case ATOMICALLY_FRAME:
case RET_SMALL:
case CATCH_RETRY_FRAME:
case ATOMICALLY_FRAME:
case RET_SMALL:
- case RET_VEC_SMALL:
bitmap = BITMAP_BITS(info->i.layout.bitmap);
size = BITMAP_SIZE(info->i.layout.bitmap);
p++;
bitmap = BITMAP_BITS(info->i.layout.bitmap);
size = BITMAP_SIZE(info->i.layout.bitmap);
p++;
@@
-1414,7
+1405,6
@@
retainStack( StgClosure *c, retainer c_child_r,
// large bitmap (> 32 entries, or > 64 on a 64-bit machine)
case RET_BIG:
// large bitmap (> 32 entries, or > 64 on a 64-bit machine)
case RET_BIG:
- case RET_VEC_BIG:
size = GET_LARGE_BITMAP(&info->i)->size;
p++;
retain_large_bitmap(p, GET_LARGE_BITMAP(&info->i),
size = GET_LARGE_BITMAP(&info->i)->size;
p++;
retain_large_bitmap(p, GET_LARGE_BITMAP(&info->i),