[project @ 2000-08-07 14:11:48 by sewardj]

[ghc-hetmet.git] / ghc / compiler / prelude / PrimRep.lhs

diff --git a/ghc/compiler/prelude/PrimRep.lhs b/ghc/compiler/prelude/PrimRep.lhs
index 2b934c3..70bb367 100644 (file)
--- a/ghc/compiler/prelude/PrimRep.lhs
+++ b/ghc/compiler/prelude/PrimRep.lhs
@@ -57,10 +57,9 @@ data PrimRep
 
   | WeakPtrRep
   | ForeignObjRep      
+  | BCORep
 
-  | StablePtrRep       -- We could replace this with IntRep but maybe
-                       -- there's some documentation gain from having
-                       -- it special? [ADR]
+  | StablePtrRep       -- guaranteed to be represented by a pointer
 
   | StableNameRep      -- A stable name is a real heap object, unpointed,
                        -- with one field containing an index into the
@@ -207,9 +206,6 @@ showPrimRep  :: PrimRep -> String
 showPrimRepToUser :: PrimRep -> String
 
 showPrimRep PtrRep        = "P_"       -- short for StgPtr
-
-showPrimRep CodePtrRep     = "P_"      -- DEATH to StgFunPtr! (94/02/22 WDP)
-showPrimRep PtrRep         = "P_"      -- short for StgPtr
 showPrimRep CodePtrRep     = "P_"      -- DEATH to StgFunPtr! (94/02/22 WDP)
 showPrimRep DataPtrRep     = "D_"
 showPrimRep RetRep         = "P_"