diff options
Diffstat (limited to 'compiler/GHC/Runtime/Heap/Layout.hs')
| -rw-r--r-- | compiler/GHC/Runtime/Heap/Layout.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/GHC/Runtime/Heap/Layout.hs b/compiler/GHC/Runtime/Heap/Layout.hs index 1195f83937..3e6f6ed405 100644 --- a/compiler/GHC/Runtime/Heap/Layout.hs +++ b/compiler/GHC/Runtime/Heap/Layout.hs @@ -174,6 +174,7 @@ data SMRep | RTSRep -- The RTS needs to declare info tables with specific Int -- type tags, so this form lets us override the default SMRep -- tag for an SMRep. + deriving Eq -- | True \<=> This is a static closure. Affects how we garbage-collect it. -- Static closure have an extra static link field at the end. @@ -191,6 +192,7 @@ data ClosureTypeInfo | ThunkSelector SelectorOffset | BlackHole | IndStatic + deriving Eq type ConstrDescription = ByteString -- result of dataConIdentity type FunArity = Int @@ -445,6 +447,8 @@ rtsClosureType rep HeapRep False _ _ BlackHole -> BLACKHOLE HeapRep False _ _ IndStatic -> IND_STATIC + StackRep _ -> STACK + _ -> panic "rtsClosureType" -- We export these ones |