[project @ 2005-10-27 00:21:24 by sof]

emitForeignCall: avoid CC warnings by hinting that resume/suspendThread id arg is a ptr

diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs
index b1e5037..155e302 100644 (file)
--- 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