[project @ 2005-04-07 12:39:56 by simonmar]

The arg to suspendThread should have a "ptr" hint

diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs
index 572a387..6c7fc04 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)]
-                       [ (CmmReg (CmmGlobal BaseReg), NoHint) ] 
+                       [ (CmmReg (CmmGlobal BaseReg), PtrHint) ] 
                        Nothing{-save all; ToDo-}
                        )
     stmtC (the_call vols)