diff options
| -rw-r--r-- | ghc/compiler/codeGen/CgForeignCall.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs index 572a3876f5..6c7fc044b0 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)] - [ (CmmReg (CmmGlobal BaseReg), NoHint) ] + [ (CmmReg (CmmGlobal BaseReg), PtrHint) ] Nothing{-save all; ToDo-} ) stmtC (the_call vols) |