From 886e3d665236fd3a81afa410aa96f8dc9fd6b6f1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 7 Apr 2005 12:39:56 +0000
Subject: [PATCH] [project @ 2005-04-07 12:39:56 by simonmar] The arg to
 suspendThread should have a "ptr" hint

---
 ghc/compiler/codeGen/CgForeignCall.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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