Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : simd
http://hackage.haskell.org/trac/ghc/changeset/9488f54b1630decf1366dcb135fbbac54d1fa0bf >--------------------------------------------------------------- commit 9488f54b1630decf1366dcb135fbbac54d1fa0bf Author: Geoffrey Mainland <[email protected]> Date: Wed Nov 2 15:10:13 2011 +0000 Formatting. >--------------------------------------------------------------- compiler/codeGen/ClosureInfo.lhs | 50 +++++++++++++++++++------------------- 1 files changed, 25 insertions(+), 25 deletions(-) diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index 102f432..6ed5193 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -250,35 +250,35 @@ data CgRep deriving Eq instance Outputable CgRep where - ppr VoidArg = ptext (sLit "V_") - ppr PtrArg = ptext (sLit "P_") - ppr NonPtrArg = ptext (sLit "I_") - ppr LongArg = ptext (sLit "L_") - ppr FloatArg = ptext (sLit "F_") - ppr DoubleArg = ptext (sLit "D_") - ppr (FloatVecArg l) = ptext (sLit ("F" ++ show l ++ "_")) + ppr VoidArg = ptext (sLit "V_") + ppr PtrArg = ptext (sLit "P_") + ppr NonPtrArg = ptext (sLit "I_") + ppr LongArg = ptext (sLit "L_") + ppr FloatArg = ptext (sLit "F_") + ppr DoubleArg = ptext (sLit "D_") + ppr (FloatVecArg len) = ptext (sLit ("F" ++ show len ++ "_")) argMachRep :: CgRep -> CmmType -argMachRep PtrArg = gcWord -argMachRep NonPtrArg = bWord -argMachRep LongArg = b64 -argMachRep FloatArg = f32 -argMachRep DoubleArg = f64 -argMachRep VoidArg = panic "argMachRep:VoidRep" -argMachRep (FloatVecArg 4) = vec4f32 -argMachRep (FloatVecArg l) = panic ("argMachRep:FloatVecArg" ++ show l) +argMachRep PtrArg = gcWord +argMachRep NonPtrArg = bWord +argMachRep LongArg = b64 +argMachRep FloatArg = f32 +argMachRep DoubleArg = f64 +argMachRep VoidArg = panic "argMachRep:VoidRep" +argMachRep (FloatVecArg 4) = vec4f32 +argMachRep (FloatVecArg len) = panic ("argMachRep:FloatVecArg" ++ show len) primRepToCgRep :: PrimRep -> CgRep -primRepToCgRep VoidRep = VoidArg -primRepToCgRep PtrRep = PtrArg -primRepToCgRep IntRep = NonPtrArg -primRepToCgRep WordRep = NonPtrArg -primRepToCgRep Int64Rep = LongArg -primRepToCgRep Word64Rep = LongArg -primRepToCgRep AddrRep = NonPtrArg -primRepToCgRep FloatRep = FloatArg -primRepToCgRep DoubleRep = DoubleArg -primRepToCgRep (FloatVecRep l) = FloatVecArg l +primRepToCgRep VoidRep = VoidArg +primRepToCgRep PtrRep = PtrArg +primRepToCgRep IntRep = NonPtrArg +primRepToCgRep WordRep = NonPtrArg +primRepToCgRep Int64Rep = LongArg +primRepToCgRep Word64Rep = LongArg +primRepToCgRep AddrRep = NonPtrArg +primRepToCgRep FloatRep = FloatArg +primRepToCgRep DoubleRep = DoubleArg +primRepToCgRep (FloatVecRep len) = FloatVecArg len idCgRep :: Id -> CgRep idCgRep x = typeCgRep . idType $ x _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
