diff options
| author | Karel Gardas <karel.gardas@centrum.cz> | 2011-08-20 23:49:48 +0200 |
|---|---|---|
| committer | Karel Gardas <karel.gardas@centrum.cz> | 2011-08-21 08:50:57 +0200 |
| commit | bab9a72d7f12a88bb38677db03ed4c956d0a7d99 (patch) | |
| tree | c0a703e2770e7cf062904641f79cda08f6c9ca2d /compiler/nativeGen/TargetReg.hs | |
| parent | 2906db6c3a3f1000bd7347c7d8e45e65eb2806cb (diff) | |
| download | haskell-bab9a72d7f12a88bb38677db03ed4c956d0a7d99.tar.gz | |
enhance ArchARM with ISA and ISA extensions
This patch enhances ArchARM with ARM ISA and ISA extensions details
as is suggested in the comment in Platform.hs file. The patch is needed
by future patch which will use ARM ISA information in order to pass
appropriate command-line option to the LLVM llc tool.
Diffstat (limited to 'compiler/nativeGen/TargetReg.hs')
| -rw-r--r-- | compiler/nativeGen/TargetReg.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/nativeGen/TargetReg.hs b/compiler/nativeGen/TargetReg.hs index 089269785c..c633182116 100644 --- a/compiler/nativeGen/TargetReg.hs +++ b/compiler/nativeGen/TargetReg.hs @@ -48,7 +48,7 @@ targetVirtualRegSqueeze platform ArchPPC -> PPC.virtualRegSqueeze ArchSPARC -> SPARC.virtualRegSqueeze ArchPPC_64 -> panic "targetVirtualRegSqueeze ArchPPC_64" - ArchARM -> panic "targetVirtualRegSqueeze ArchARM" + ArchARM _ _ -> panic "targetVirtualRegSqueeze ArchARM" ArchUnknown -> panic "targetVirtualRegSqueeze ArchUnknown" targetRealRegSqueeze :: Platform -> RegClass -> RealReg -> FastInt @@ -59,7 +59,7 @@ targetRealRegSqueeze platform ArchPPC -> PPC.realRegSqueeze ArchSPARC -> SPARC.realRegSqueeze ArchPPC_64 -> panic "targetRealRegSqueeze ArchPPC_64" - ArchARM -> panic "targetRealRegSqueeze ArchARM" + ArchARM _ _ -> panic "targetRealRegSqueeze ArchARM" ArchUnknown -> panic "targetRealRegSqueeze ArchUnknown" targetClassOfRealReg :: Platform -> RealReg -> RegClass @@ -70,7 +70,7 @@ targetClassOfRealReg platform ArchPPC -> PPC.classOfRealReg ArchSPARC -> SPARC.classOfRealReg ArchPPC_64 -> panic "targetClassOfRealReg ArchPPC_64" - ArchARM -> panic "targetClassOfRealReg ArchARM" + ArchARM _ _ -> panic "targetClassOfRealReg ArchARM" ArchUnknown -> panic "targetClassOfRealReg ArchUnknown" -- TODO: This should look at targetPlatform too @@ -85,7 +85,7 @@ targetMkVirtualReg platform ArchPPC -> PPC.mkVirtualReg ArchSPARC -> SPARC.mkVirtualReg ArchPPC_64 -> panic "targetMkVirtualReg ArchPPC_64" - ArchARM -> panic "targetMkVirtualReg ArchARM" + ArchARM _ _ -> panic "targetMkVirtualReg ArchARM" ArchUnknown -> panic "targetMkVirtualReg ArchUnknown" targetRegDotColor :: Platform -> RealReg -> SDoc @@ -96,7 +96,7 @@ targetRegDotColor platform ArchPPC -> PPC.regDotColor ArchSPARC -> SPARC.regDotColor ArchPPC_64 -> panic "targetRegDotColor ArchPPC_64" - ArchARM -> panic "targetRegDotColor ArchARM" + ArchARM _ _ -> panic "targetRegDotColor ArchARM" ArchUnknown -> panic "targetRegDotColor ArchUnknown" |