Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5893cab6292f21cc093f7e04af9ec2c0e7666e28 >--------------------------------------------------------------- commit 5893cab6292f21cc093f7e04af9ec2c0e7666e28 Author: David Terei <[email protected]> Date: Sat Nov 19 17:38:04 2011 -0800 Formatting of PprC >--------------------------------------------------------------- compiler/cmm/PprC.hs | 83 ++++++++++++++++++++++++------------------------- 1 files changed, 41 insertions(+), 42 deletions(-) diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index d48ddba..de7ec80 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -25,40 +25,39 @@ module PprC ( -- Cmm stuff import BlockId -import OldCmm -import OldPprCmm () import CLabel import ForeignCall +import OldCmm +import OldPprCmm () -- Utils +import Constants +import CPrim import DynFlags -import Unique -import UniqSet import FastString import Outputable import Platform -import Constants +import UniqSet +import Unique import Util -- The rest -import Data.List +import Control.Monad.ST import Data.Bits import Data.Char -import System.IO +import Data.List import Data.Map (Map) -import qualified Data.Map as Map import Data.Word +import System.IO +import qualified Data.Map as Map --- castSTUArray has moved to Data.Array.Unsafe #if __GLASGOW_HASKELL__ >= 703 -import Data.Array.Unsafe( castSTUArray ) -import Data.Array.ST hiding( castSTUArray ) +import Data.Array.Unsafe ( castSTUArray ) +import Data.Array.ST hiding ( castSTUArray ) #else import Data.Array.ST #endif -import Control.Monad.ST - -- -------------------------------------------------------------------------- -- Top level @@ -626,36 +625,36 @@ pprCallishMachOp_for_C :: CallishMachOp -> SDoc pprCallishMachOp_for_C mop = case mop of - MO_F64_Pwr -> ptext (sLit "pow") - MO_F64_Sin -> ptext (sLit "sin") - MO_F64_Cos -> ptext (sLit "cos") - MO_F64_Tan -> ptext (sLit "tan") - MO_F64_Sinh -> ptext (sLit "sinh") - MO_F64_Cosh -> ptext (sLit "cosh") - MO_F64_Tanh -> ptext (sLit "tanh") - MO_F64_Asin -> ptext (sLit "asin") - MO_F64_Acos -> ptext (sLit "acos") - MO_F64_Atan -> ptext (sLit "atan") - MO_F64_Log -> ptext (sLit "log") - MO_F64_Exp -> ptext (sLit "exp") - MO_F64_Sqrt -> ptext (sLit "sqrt") - MO_F32_Pwr -> ptext (sLit "powf") - MO_F32_Sin -> ptext (sLit "sinf") - MO_F32_Cos -> ptext (sLit "cosf") - MO_F32_Tan -> ptext (sLit "tanf") - MO_F32_Sinh -> ptext (sLit "sinhf") - MO_F32_Cosh -> ptext (sLit "coshf") - MO_F32_Tanh -> ptext (sLit "tanhf") - MO_F32_Asin -> ptext (sLit "asinf") - MO_F32_Acos -> ptext (sLit "acosf") - MO_F32_Atan -> ptext (sLit "atanf") - MO_F32_Log -> ptext (sLit "logf") - MO_F32_Exp -> ptext (sLit "expf") - MO_F32_Sqrt -> ptext (sLit "sqrtf") + MO_F64_Pwr -> ptext (sLit "pow") + MO_F64_Sin -> ptext (sLit "sin") + MO_F64_Cos -> ptext (sLit "cos") + MO_F64_Tan -> ptext (sLit "tan") + MO_F64_Sinh -> ptext (sLit "sinh") + MO_F64_Cosh -> ptext (sLit "cosh") + MO_F64_Tanh -> ptext (sLit "tanh") + MO_F64_Asin -> ptext (sLit "asin") + MO_F64_Acos -> ptext (sLit "acos") + MO_F64_Atan -> ptext (sLit "atan") + MO_F64_Log -> ptext (sLit "log") + MO_F64_Exp -> ptext (sLit "exp") + MO_F64_Sqrt -> ptext (sLit "sqrt") + MO_F32_Pwr -> ptext (sLit "powf") + MO_F32_Sin -> ptext (sLit "sinf") + MO_F32_Cos -> ptext (sLit "cosf") + MO_F32_Tan -> ptext (sLit "tanf") + MO_F32_Sinh -> ptext (sLit "sinhf") + MO_F32_Cosh -> ptext (sLit "coshf") + MO_F32_Tanh -> ptext (sLit "tanhf") + MO_F32_Asin -> ptext (sLit "asinf") + MO_F32_Acos -> ptext (sLit "acosf") + MO_F32_Atan -> ptext (sLit "atanf") + MO_F32_Log -> ptext (sLit "logf") + MO_F32_Exp -> ptext (sLit "expf") + MO_F32_Sqrt -> ptext (sLit "sqrtf") MO_WriteBarrier -> ptext (sLit "write_barrier") - MO_Memcpy -> ptext (sLit "memcpy") - MO_Memset -> ptext (sLit "memset") - MO_Memmove -> ptext (sLit "memmove") + MO_Memcpy -> ptext (sLit "memcpy") + MO_Memset -> ptext (sLit "memset") + MO_Memmove -> ptext (sLit "memmove") a -> panic $ "pprCallishMachOp_for_C: Unknown callish op! (" ++ show a ++ ")" _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
