From: simonmar <unknown>
Date: Wed, 27 Apr 2005 09:54:26 +0000 (+0000)
Subject: [project @ 2005-04-27 09:54:26 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~663
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=96364859cfd0d6143c10c158a74c254747e22745;p=ghc-hetmet.git

[project @ 2005-04-27 09:54:26 by simonmar]
Fix the volatile regs to the suspendThread call
---

diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs
index 6c7fc04..9897651 100644
--- a/ghc/compiler/codeGen/CgForeignCall.hs
+++ b/ghc/compiler/codeGen/CgForeignCall.hs
@@ -80,7 +80,7 @@ emitForeignCall results (CCall (CCallSpec target cconv safety)) args live
     emitSaveThreadState
     stmtC (CmmCall (CmmForeignCall suspendThread CCallConv) [(id,NoHint)]
 			[ (CmmReg (CmmGlobal BaseReg), PtrHint) ] 
-			Nothing{-save all; ToDo-}
+			(Just vols)
 			)
     stmtC (the_call vols)
     stmtC (CmmCall (CmmForeignCall resumeThread CCallConv) []