[project @ 2005-04-27 09:54:26 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgForeignCall.hs

diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs
index 6c7fc04..9897651 100644 (file)
--- 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) []