[Git][ghc/ghc][wip/decode_cloned_stack] iFix stack_misc_closures for Darwin

[Sven Tennie (@supersven)]

Sven Tennie pushed to branch wip/decode_cloned_stack at Glasgow Haskell Compiler / GHC


Commits:
90a0e77f by Sven Tennie at 2023-02-18T09:38:08+00:00
iFix stack_misc_closures for Darwin

- - - - -


1 changed file:

- libraries/ghc-heap/tests/stack_misc_closures.hs


Changes:

=====================================
libraries/ghc-heap/tests/stack_misc_closures.hs
=====================================
@@ -25,6 +25,7 @@ import GHC.Stack.CloneStack (StackSnapshot (..))
 import System.Mem
 import TestUtils
 import Unsafe.Coerce (unsafeCoerce)
+import System.Info
 
 foreign import prim "any_update_framezh" any_update_frame# :: SetupFunction
 
@@ -258,7 +259,9 @@ main = do
           FunClosure {..} -> do
             assertEqual (tipe info) FUN_STATIC
             assertEqual (null dataArgs) True
-            assertEqual (null ptrArgs) True
+            -- Darwin seems to have a slightly different layout regarding
+            -- function `argGenFun`
+            assertEqual (null ptrArgs) (os /= "darwin")
           e -> error $ "Wrong closure type: " ++ show e
         pCs <- mapM getBoxedClosureData retFunPayload
         assertEqual (length pCs) 9



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/90a0e77fd0565ac757cff98e23852c3e1f212066

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/90a0e77fd0565ac757cff98e23852c3e1f212066
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230218/a9016039/attachment-0001.html>