Commit c6d557e8 authored by Simon Marlow's avatar Simon Marlow
Browse files

tiny refactoring

parent 2fa41b08
......@@ -477,7 +477,7 @@ lowerSafeForeignCall entry areaMap blocks bid m
caller_save <**>
mkUnsafeCall (ForeignTarget suspendThread
(ForeignConvention CCallConv [AddrHint, NoHint] [AddrHint]))
[id] [CmmReg (CmmGlobal BaseReg), CmmLit (CmmInt (fromIntegral (fromEnum intrbl)) wordWidth)]
[id] [CmmReg (CmmGlobal BaseReg), CmmLit (mkIntCLit (fromEnum intrbl))]
midCall = mkUnsafeCall tgt rs as
resume = mkUnsafeCall (ForeignTarget resumeThread
(ForeignConvention CCallConv [AddrHint] [AddrHint]))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment