From 8f94d42a1d32f3c4747e1ad8bb846076d0b59b78 Mon Sep 17 00:00:00 2001 From: sof Date: Thu, 27 Oct 2005 00:21:24 +0000 Subject: [PATCH] [project @ 2005-10-27 00:21:24 by sof] emitForeignCall: avoid CC warnings by hinting that resume/suspendThread id arg is a ptr --- ghc/compiler/codeGen/CgForeignCall.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4