X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FProfHeap.c;fp=ghc%2Frts%2FProfHeap.c;h=b640feaa1d8f05f577eb9da8eb1a34c408e0bf0d;hb=e792bb8488aa3c33d7b186abdf53aa8b0ef68b11;hp=2593d1e2fa7aeac73807d06410f19bf16cbd02fe;hpb=ffcc8c9aa3ed862f26a7c05b23d09337ff104f13;p=ghc-hetmet.git

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index 2593d1e..b640fea 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -159,7 +159,6 @@ static char *type_names[] = {
     , "MUT_VAR"
 
     , "WEAK"
-    , "FOREIGN"
   
     , "TSO"
 
@@ -914,7 +913,6 @@ heapCensusChain( Census *census, bdescr *bd )
 
 	    case MVAR:
 	    case WEAK:
-	    case FOREIGN:
 	    case STABLE_NAME:
 	    case MUT_VAR:
 		prim = rtsTrue;