diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-08-21 19:50:32 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-08-21 19:50:32 +0100 |
| commit | b6b6311b1c8894fe9e157c5215decf4674d48cad (patch) | |
| tree | f907de4920f54c23bab47e86a07c06c2491f5a9e /compiler/nativeGen/TargetReg.hs | |
| parent | ac21fdb440d4cf44134f609d2aec73e1fcacf424 (diff) | |
| download | haskell-b6b6311b1c8894fe9e157c5215decf4674d48cad.tar.gz | |
Pass platform down to lastint
Diffstat (limited to 'compiler/nativeGen/TargetReg.hs')
| -rw-r--r-- | compiler/nativeGen/TargetReg.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/TargetReg.hs b/compiler/nativeGen/TargetReg.hs index 13293deeee..f0d382d0d6 100644 --- a/compiler/nativeGen/TargetReg.hs +++ b/compiler/nativeGen/TargetReg.hs @@ -72,8 +72,8 @@ targetRealRegSqueeze platform targetClassOfRealReg :: Platform -> RealReg -> RegClass targetClassOfRealReg platform = case platformArch platform of - ArchX86 -> X86.classOfRealReg - ArchX86_64 -> X86.classOfRealReg + ArchX86 -> X86.classOfRealReg platform + ArchX86_64 -> X86.classOfRealReg platform ArchPPC -> PPC.classOfRealReg ArchSPARC -> SPARC.classOfRealReg ArchPPC_64 -> panic "targetClassOfRealReg ArchPPC_64" |