[Git][ghc/ghc][wip/buggymcbugfix/arrayOf-static] blerg

[Vilem-Benjamin Liepelt]

Vilem-Benjamin Liepelt pushed to branch wip/buggymcbugfix/arrayOf-static at Glasgow Haskell Compiler / GHC


Commits:
0401d1a5 by buggymcbugfix at 2020-08-24T12:12:40+02:00
blerg

- - - - -


1 changed file:

- includes/rts/storage/ClosureMacros.h


Changes:

=====================================
includes/rts/storage/ClosureMacros.h
=====================================
@@ -167,8 +167,16 @@ STATIC_LINK(const StgInfoTable *info, StgClosure *p)
     switch (info->type) {
     case THUNK_STATIC:
         return THUNK_STATIC_LINK(p);
+
     case IND_STATIC:
         return IND_STATIC_LINK(p);
+
+    case SMALL_MUT_ARR_PTRS_CLEAN:
+    case SMALL_MUT_ARR_PTRS_FROZEN_CLEAN:
+    case SMALL_MUT_ARR_PTRS_DIRTY:
+    case SMALL_MUT_ARR_PTRS_FROZEN_DIRTY:
+        return (StgSmallMutArrPtrs*)p->payload[(StgSmallMutArrPtrs*)p->size];
+
     default:
         return &p->payload[info->layout.payload.ptrs +
                            info->layout.payload.nptrs];



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0401d1a52a1d11bda5852f14e9730e38ac4c368c

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/0401d1a52a1d11bda5852f14e9730e38ac4c368c
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/20200824/c58a916d/attachment.html>