diff options
| -rw-r--r-- | ghc/compiler/codeGen/CgForeignCall.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs index b1e503772b..155e30205c 100644 --- a/ghc/compiler/codeGen/CgForeignCall.hs +++ b/ghc/compiler/codeGen/CgForeignCall.hs @@ -79,7 +79,7 @@ emitForeignCall results (CCall (CCallSpec target cconv safety)) args live id <- newTemp wordRep emitSaveThreadState stmtC (CmmCall (CmmForeignCall suspendThread CCallConv) - [(id,NoHint)] + [(id,PtrHint)] [ (CmmReg (CmmGlobal BaseReg), PtrHint) ] (Just vols) ) @@ -90,7 +90,7 @@ emitForeignCall results (CCall (CCallSpec target cconv safety)) args live -- a different Capability! Small optimisation: -- only do this in SMP mode, where there are >1 -- Capabilities. - [ (CmmReg id, NoHint) ] + [ (CmmReg id, PtrHint) ] (Just vols) ) emitLoadThreadState |