From: sof <unknown>
Date: Thu, 27 Oct 2005 00:21:24 +0000 (+0000)
Subject: [project @ 2005-10-27 00:21:24 by sof]
X-Git-Tag: Initial_conversion_from_CVS_complete~118
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8f94d42a1d32f3c4747e1ad8bb846076d0b59b78

[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
--- 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