X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fcmm%2FPprC.hs;h=90599d74e9ac705098ba426ec66e56f6ae34ff18;hb=8e7115fd48d87c44a262ce2349871be6b7b2ce81;hp=a8d30668b7e39d55b953d31620b6d04044db18e1;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index a8d3066..90599d7 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -2,7 +2,7 @@
 --
 -- Pretty-printing of Cmm as C, suitable for feeding gcc
 --
--- (c) The University of Glasgow 2004
+-- (c) The University of Glasgow 2004-2006
 --
 -----------------------------------------------------------------------------
 
@@ -30,23 +30,21 @@ import MachOp
 import ForeignCall
 
 -- Utils
-import DynFlags		( DynFlags, DynFlag(..), dopt )
-import Unique           ( getUnique )
+import DynFlags
+import Unique
 import UniqSet
 import FiniteMap
-import UniqFM		( eltsUFM )
+import UniqFM
 import FastString
 import Outputable
 import Constants
-import StaticFlags 	( opt_Unregisterised )
 
 -- The rest
-import Data.List        ( intersperse, groupBy )
-import Data.Bits        ( shiftR )
-import Char             ( ord, chr )
-import IO               ( Handle )
-import DATA_BITS
-import Data.Word	( Word8 )
+import Data.List
+import Data.Bits
+import Data.Char
+import System.IO
+import Data.Word
 
 #ifdef DEBUG
 import PprCmm		() -- instances only
@@ -56,7 +54,11 @@ import PprCmm		() -- instances only
 #if __GLASGOW_HASKELL__ >= 504
 import Data.Array.ST
 #endif
-import MONAD_ST
+import Control.Monad.ST
+
+#if x86_64_TARGET_ARCH
+import StaticFlags	( opt_Unregisterised )
+#endif
 
 -- --------------------------------------------------------------------------
 -- Top level
@@ -547,6 +549,7 @@ pprCallishMachOp_for_C mop
         MO_F32_Log  -> ptext SLIT("logf")
         MO_F32_Exp  -> ptext SLIT("expf")
         MO_F32_Sqrt -> ptext SLIT("sqrtf")
+	MO_WriteBarrier -> ptext SLIT("write_barrier")
 
 -- ---------------------------------------------------------------------
 -- Useful #defines