[Git][ghc/ghc][wip/stack_cloning] 2 commits: Free MVar pointer

[Sven Tennie]

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


Commits:
98014fc8 by Sven Tennie at 2020-10-12T10:52:08+02:00
Free MVar pointer

- - - - -
d762fb34 by Sven Tennie at 2020-10-12T11:13:36+02:00
Remove unnecessary constant deriving

- - - - -


2 changed files:

- rts/CloneStack.c
- utils/deriveConstants/Main.hs


Changes:

=====================================
rts/CloneStack.c
=====================================
@@ -16,7 +16,7 @@ void sendCloneStackMessage(StgTSO *tso, HsStablePtr mvar) {
   msg = (MessageCloneStack *)allocate(srcCapability, sizeofW(MessageCloneStack));
   msg->tso = tso;
   msg->result = (StgMVar*)deRefStablePtr(mvar);
-  // TODO: Free? See RtsAPI.c: hs_try_putmvar()
+  freeStablePtr(mvar);
   SET_HDR(msg, &stg_MSG_CLONE_STACK_info, CCS_SYSTEM);
   // Ensure that writes constructing Message are committed before sending.
   write_barrier();


=====================================
utils/deriveConstants/Main.hs
=====================================
@@ -442,7 +442,6 @@ wanteds os = concat
           ,closureField_ Both "StgTSO_cccs" "StgTSO" "prof.cccs"
           ,closureField  Both "StgTSO"      "stackobj"
 
-          ,closureSize        C    "StgStack"
           ,closureField       Both "StgStack" "sp"
           ,closureFieldOffset Both "StgStack" "stack"
           ,closureField       C    "StgStack" "stack_size"



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c9c9e5547274f5e80fd886ad8bfb1f44e63866f4...d762fb34a025010ec01f1ab2341594dd3b68a6ab

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/c9c9e5547274f5e80fd886ad8bfb1f44e63866f4...d762fb34a025010ec01f1ab2341594dd3b68a6ab
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/20201012/d1f564ba/attachment.html>