Fix a bug in alternative layout
[ghc-hetmet.git] / compiler / nativeGen / TargetReg.hs
1
2 -- | Hard wired things related to registers.
3 --      This is module is preventing the native code generator being able to 
4 --      emit code for non-host architectures.
5 --
6 --      TODO: Do a better job of the overloading, and eliminate this module.
7 --      We'd probably do better with a Register type class, and hook this to 
8 --      Instruction somehow.
9 --
10 --      TODO: We should also make arch specific versions of RegAlloc.Graph.TrivColorable
11
12 module TargetReg (
13         targetVirtualRegSqueeze,
14         targetRealRegSqueeze,
15         targetClassOfRealReg,
16         targetMkVirtualReg,
17         targetWordSize,
18         targetRegDotColor,
19         targetClassOfReg
20 )
21
22 where
23
24 #include "HsVersions.h"
25
26 import Reg
27 import RegClass
28 import Size
29
30 import CmmExpr  (wordWidth)
31 import Outputable
32 import Unique
33 import FastTypes
34
35
36 #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
37 import qualified X86.Regs       as X86
38 import qualified X86.RegInfo    as X86
39
40 #elif powerpc_TARGET_ARCH
41 import qualified PPC.Regs       as PPC
42
43 #elif sparc_TARGET_ARCH 
44 import qualified SPARC.Regs     as SPARC
45
46 #else
47 #error "RegAlloc.Graph.TargetReg: not defined"
48 #endif
49
50 targetVirtualRegSqueeze :: RegClass -> VirtualReg -> FastInt
51 targetRealRegSqueeze    :: RegClass -> RealReg -> FastInt
52 targetClassOfRealReg    :: RealReg -> RegClass
53 targetWordSize          :: Size
54 targetMkVirtualReg      :: Unique -> Size -> VirtualReg
55 targetRegDotColor       :: RealReg -> SDoc
56
57 -- x86 -------------------------------------------------------------------------
58 #if i386_TARGET_ARCH || x86_64_TARGET_ARCH
59 targetVirtualRegSqueeze = X86.virtualRegSqueeze
60 targetRealRegSqueeze    = X86.realRegSqueeze
61 targetClassOfRealReg    = X86.classOfRealReg
62 targetWordSize          = intSize wordWidth
63 targetMkVirtualReg      = X86.mkVirtualReg
64 targetRegDotColor       = X86.regDotColor
65
66 -- ppc -------------------------------------------------------------------------
67 #elif powerpc_TARGET_ARCH
68 targetVirtualRegSqueeze = PPC.virtualRegSqueeze
69 targetRealRegSqueeze    = PPC.realRegSqueeze
70 targetClassOfRealReg    = PPC.classOfRealReg
71 targetWordSize          = intSize wordWidth
72 targetMkVirtualReg      = PPC.mkVirtualReg
73 targetRegDotColor       = PPC.regDotColor
74
75 -- sparc -----------------------------------------------------------------------
76 #elif sparc_TARGET_ARCH
77 targetVirtualRegSqueeze = SPARC.virtualRegSqueeze
78 targetRealRegSqueeze    = SPARC.realRegSqueeze
79 targetClassOfRealReg    = SPARC.classOfRealReg
80 targetWordSize          = intSize wordWidth
81 targetMkVirtualReg      = SPARC.mkVirtualReg
82 targetRegDotColor       = SPARC.regDotColor
83
84 --------------------------------------------------------------------------------
85 #else
86 #error "RegAlloc.Graph.TargetReg: not defined"
87 #endif
88
89
90 targetClassOfReg :: Reg -> RegClass
91 targetClassOfReg reg
92  = case reg of
93         RegVirtual vr   -> classOfVirtualReg vr
94         RegReal rr      -> targetClassOfRealReg rr
95
96