X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FMachCodeGen.hs;h=d86fe7a01b56417813ac4c1c6de4224f5f58e95d;hp=3abe820c9e638994de3bdc1f5bfd91a1f75ff99c;hb=6ee9554a738c442719ded861504acb729fd3d431;hpb=b515d109750e00630dfaf6055a1ded8dfd61b415

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 3abe820..d86fe7a 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -3050,18 +3050,20 @@ genCCall (CmmPrim MO_WriteBarrier) _ _ = return nilOL
 
 -- we only cope with a single result for foreign calls
 genCCall (CmmPrim op) [CmmKinded r _] args = do
+  l1 <- getNewLabelNat
+  l2 <- getNewLabelNat
   case op of
 	MO_F32_Sqrt -> actuallyInlineFloatOp F32  (GSQRT F32) args
 	MO_F64_Sqrt -> actuallyInlineFloatOp F64 (GSQRT F64) args
 	
-	MO_F32_Sin  -> actuallyInlineFloatOp F32  (GSIN F32) args
-	MO_F64_Sin  -> actuallyInlineFloatOp F64 (GSIN F64) args
+	MO_F32_Sin  -> actuallyInlineFloatOp F32  (GSIN F32 l1 l2) args
+	MO_F64_Sin  -> actuallyInlineFloatOp F64 (GSIN F64 l1 l2) args
 	
-	MO_F32_Cos  -> actuallyInlineFloatOp F32  (GCOS F32) args
-	MO_F64_Cos  -> actuallyInlineFloatOp F64 (GCOS F64) args
+	MO_F32_Cos  -> actuallyInlineFloatOp F32  (GCOS F32 l1 l2) args
+	MO_F64_Cos  -> actuallyInlineFloatOp F64 (GCOS F64 l1 l2) args
 	
-	MO_F32_Tan  -> actuallyInlineFloatOp F32  (GTAN F32) args
-	MO_F64_Tan  -> actuallyInlineFloatOp F64 (GTAN F64) args
+	MO_F32_Tan  -> actuallyInlineFloatOp F32  (GTAN F32 l1 l2) args
+	MO_F64_Tan  -> actuallyInlineFloatOp F64 (GTAN F64 l1 l2) args
 	
 	other_op    -> outOfLineFloatOp op r args
  where