diff options
| author | sof <unknown> | 2005-10-27 00:21:24 +0000 |
|---|---|---|
| committer | sof <unknown> | 2005-10-27 00:21:24 +0000 |
| commit | 8f94d42a1d32f3c4747e1ad8bb846076d0b59b78 (patch) | |
| tree | 7e1aeec943a504d9eea2683ddc32b81d7de59815 /ghc/compiler/codeGen | |
| parent | b25ebcf682220e365cfa39d5ea55263c89ee4fb2 (diff) | |
| download | haskell-8f94d42a1d32f3c4747e1ad8bb846076d0b59b78.tar.gz | |
[project @ 2005-10-27 00:21:24 by sof]
emitForeignCall: avoid CC warnings by hinting that resume/suspendThread id arg is a ptr
Diffstat (limited to 'ghc/compiler/codeGen')
| -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 |