[Git][ghc/ghc][wip/osa1/std_string_thunks] Bugs in closure def

[Ömer Sinan Ağacan]

Ömer Sinan Ağacan pushed to branch wip/osa1/std_string_thunks at Glasgow Haskell Compiler / GHC


Commits:
2899512a by Ömer Sinan Ağacan at 2020-04-01T13:43:24+03:00
Bugs in closure def

- - - - -


1 changed file:

- rts/StgStdThunks.cmm


Changes:

=====================================
rts/StgStdThunks.cmm
=====================================
@@ -13,6 +13,8 @@
 #include "Cmm.h"
 #include "Updates.h"
 
+import CLOSURE base_GHCziCStringziunpackCStringzh_info;
+
 /* -----------------------------------------------------------------------------
    The code for a thunk that simply extracts a field from a
    single-constructor datatype depends only on the offset of the field
@@ -303,6 +305,6 @@ INFO_TABLE(stg_MK_STRING, 0, 0, FUN_STATIC, "stg_MK_STRING", "stg_MK_STRING")
         Sp_adj(-2);
         Sp(1) = node;
         Sp(0) = stg_bh_upd_frame_info;
-        jump GHCziCStringziunpackCStringzhzuinfo(node);
+        jump base_GHCziCStringziunpackCStringzh_info(StgThunk_payload(node,0));
     }
 }



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2899512ac1489ae8208dbe44e01762bb852f3e49

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2899512ac1489ae8208dbe44e01762bb852f3e49
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/20200401/5ba8b5bf/attachment.html>