diff options
| author | simonmar <unknown> | 2005-07-25 14:12:51 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-07-25 14:12:51 +0000 |
| commit | e792bb8488aa3c33d7b186abdf53aa8b0ef68b11 (patch) | |
| tree | c5bcaa8f63b41bb33e043b7b4387aa6ade99f416 /ghc/rts/RetainerProfile.c | |
| parent | ffcc8c9aa3ed862f26a7c05b23d09337ff104f13 (diff) | |
| download | haskell-e792bb8488aa3c33d7b186abdf53aa8b0ef68b11.tar.gz | |
[project @ 2005-07-25 14:12:48 by simonmar]
Remove the ForeignObj# type, and all its PrimOps. The new efficient
representation of ForeignPtr doesn't use ForeignObj# underneath, and
there seems no need to keep it.
Diffstat (limited to 'ghc/rts/RetainerProfile.c')
| -rw-r--r-- | ghc/rts/RetainerProfile.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c index d312b56c80..f458d8cdc6 100644 --- a/ghc/rts/RetainerProfile.c +++ b/ghc/rts/RetainerProfile.c @@ -510,7 +510,6 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child ) // layout.payload.ptrs, no SRT case CONSTR: - case FOREIGN: case STABLE_NAME: case BCO: case CONSTR_STATIC: @@ -816,7 +815,6 @@ pop( StgClosure **c, StgClosure **cp, retainer *r ) return; case CONSTR: - case FOREIGN: case STABLE_NAME: case BCO: case CONSTR_STATIC: @@ -1045,7 +1043,6 @@ isRetainer( StgClosure *c ) case CONSTR_STATIC: case FUN_STATIC: // misc - case FOREIGN: case STABLE_NAME: case BCO: case ARR_WORDS: @@ -2107,7 +2104,6 @@ sanityCheckHeapClosure( StgClosure *c ) case IND_PERM: case IND_OLDGEN: case IND_OLDGEN_PERM: - case FOREIGN: case BCO: case STABLE_NAME: return sizeW_fromITBL(info); |