Skip to content
Snippets Groups Projects
Commit 1cf477d4 authored by Ben Gamari's avatar Ben Gamari :turtle:
Browse files

Stack cont

parent 9943c7bf
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
common/src/GHC/Debug/Decode/Convert.hs
+ 1
− 1
View file @ 1cf477d4
......@@ -32,7 +32,7 @@ convertClosure g =
GHC.MutVarClosure a1 a2 -> MutVarClosure a1 a2
GHC.BlockingQueueClosure a1 a2 a3 a4 a5 -> BlockingQueueClosure a1 a2 a3 a4 a5
GHC.TSOClosure a1 a2 -> TSOClosure a1 a2
GHC.StackClosure a1 a2 a3 a4 a5 -> StackClosure a1 a2 a3 a4 a5
GHC.StackClosure a1 a2 a3 a4 a5 -> StackClosure a1 a2 a3 (StackCont a5 a4)
GHC.IntClosure a1 a2 -> IntClosure a1 a2
GHC.WordClosure a1 a2 -> WordClosure a1 a2
GHC.Int64Closure a1 a2 -> Int64Closure a1 a2
......
common/src/GHC/Debug/Types/Ptr.hs
+ 3
− 1
View file @ 1cf477d4
......@@ -58,7 +58,9 @@ newtype ClosurePtr = ClosurePtr Word64
instance Show ClosurePtr where
show (ClosurePtr p) = "0x" ++ showHex (fromBE64 p) ""
data StackCont = StackCont RawStack deriving Show
data StackCont = StackCont { stackContStack :: !RawStack
, stackContSp :: !Word64
} deriving Show
newtype StackPtr = StackPtr Word64
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment