X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FMachCodeGen.hs;h=d16962cfbe1ebe56cf121b61d691cd27273f899d;hb=1353826e5159c9a5a81e75e0b7459271f27c08ea;hp=cac9f174261da00a61171f2061cfdb4ac5515fcd;hpb=d7d09c18459983be1ef690e0d9136a8736b1976f;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index cac9f17..d16962c 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -25,12 +25,11 @@ module MachCodeGen ( cmmTopCodeGen, InstrBlock ) where
 #include "MachDeps.h"
 
 -- NCG stuff:
-import MachInstrs
-import MachRegs
+import Instrs
+import Regs
 import NCGMonad
 import PositionIndependentCode
 import RegAllocInfo 	( mkBranchInstr, mkRegRegMoveInstr )
-import MachRegs
 import PprMach
 
 -- Our intermediate code:
@@ -3863,6 +3862,7 @@ outOfLineFloatOp_table mop
 	MO_F32_Exp    -> fsLit "expf"
 	MO_F32_Log    -> fsLit "logf"
 	MO_F32_Sqrt   -> fsLit "sqrtf"
+	MO_F32_Pwr    -> fsLit "powf"
 
 	MO_F32_Sin    -> fsLit "sinf"
 	MO_F32_Cos    -> fsLit "cosf"
@@ -3879,6 +3879,7 @@ outOfLineFloatOp_table mop
 	MO_F64_Exp    -> fsLit "exp"
 	MO_F64_Log    -> fsLit "log"
 	MO_F64_Sqrt   -> fsLit "sqrt"
+	MO_F64_Pwr    -> fsLit "pow"
 
 	MO_F64_Sin    -> fsLit "sin"
 	MO_F64_Cos    -> fsLit "cos"
@@ -5188,7 +5189,7 @@ coerceFP2Int fromRep toRep x = do
 -- We (allegedly) put the first six C-call arguments in registers;
 -- where do we start putting the rest of them?
 
--- Moved from MachInstrs (SDM):
+-- Moved from Instrs (SDM):
 
 #if alpha_TARGET_ARCH || sparc_TARGET_ARCH
 eXTRA_STK_ARGS_HERE :: Int