Skip to content
Snippets Groups Projects
Commit 871b8aec authored by Ryan Scott's avatar Ryan Scott
Browse files

Patch ghc-debug-commmon to work around ghc/ghc-debug#10

This is a simplistic, CPP-based workaround that doesn't change the API of
`ghc-debug-common`. For a more thorough fix that does change the API, see
ghc/ghc-debug!11.
parent aa94528d
No related branches found
No related tags found
No related merge requests found
diff --git a/src/GHC/Debug/Decode/Convert.hs b/src/GHC/Debug/Decode/Convert.hs diff --git a/src/GHC/Debug/Decode/Convert.hs b/src/GHC/Debug/Decode/Convert.hs
index 5df6523..c2311e9 100644 index 5df6523..e6048b6 100644
--- a/src/GHC/Debug/Decode/Convert.hs --- a/src/GHC/Debug/Decode/Convert.hs
+++ b/src/GHC/Debug/Decode/Convert.hs +++ b/src/GHC/Debug/Decode/Convert.hs
@@ -1,3 +1,4 @@ @@ -1,3 +1,4 @@
...@@ -7,7 +7,20 @@ index 5df6523..c2311e9 100644 ...@@ -7,7 +7,20 @@ index 5df6523..c2311e9 100644
{- Convert a GenClosure to a DebugClosure -} {- Convert a GenClosure to a DebugClosure -}
module GHC.Debug.Decode.Convert where module GHC.Debug.Decode.Convert where
@@ -40,10 +41,14 @@ convertClosure itb g = @@ -27,7 +28,11 @@ convertClosure itb g =
GHC.MVarClosure _ a2 a3 a4 -> MVarClosure itb a2 a3 a4
GHC.MutVarClosure _ a2 -> MutVarClosure itb a2
GHC.BlockingQueueClosure _ a2 a3 a4 a5 -> BlockingQueueClosure itb a2 a3 a4 a5
- GHC.TSOClosure _ a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16 -> TSOClosure itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
+ GHC.TSOClosure _ a2 a3 a4 a5 a6 a7
+#if __GLASGOW_HASKELL__ >= 905
+ _
+#endif
+ a8 a9 a10 a11 a12 a13 a14 a15 a16 -> TSOClosure itb a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15 a16
-- GHC.StackClosure _ a2 a3 a4 a5 -> StackClosure itb a2 a3 a4 (a2, (StackPtr a5))
{-
GHC.IntClosure a1 a2 -> IntClosure a1 a2
@@ -40,10 +45,14 @@ convertClosure itb g =
-} -}
GHC.OtherClosure _ a2 a3 -> OtherClosure itb a2 a3 GHC.OtherClosure _ a2 a3 -> OtherClosure itb a2 a3
GHC.WeakClosure _ a2 a3 a4 a5 a6 -> GHC.WeakClosure _ a2 a3 a4 a5 a6 ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment