projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Comments only
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
PPC
/
Instr.hs
diff --git
a/compiler/nativeGen/PPC/Instr.hs
b/compiler/nativeGen/PPC/Instr.hs
index
58ddc21
..
d4d8098
100644
(file)
--- a/
compiler/nativeGen/PPC/Instr.hs
+++ b/
compiler/nativeGen/PPC/Instr.hs
@@
-22,6
+22,7
@@
import PPC.Regs
import PPC.Cond
import Instruction
import Size
import PPC.Cond
import Instruction
import Size
+import TargetReg
import RegClass
import Reg
import RegClass
import Reg
@@
-353,7
+354,7
@@
ppc_mkSpillInstr
ppc_mkSpillInstr reg delta slot
= let off = spillSlotToOffset slot
in
ppc_mkSpillInstr reg delta slot
= let off = spillSlotToOffset slot
in
- let sz = case regClass reg of
+ let sz = case targetClassOfReg reg of
RcInteger -> II32
RcDouble -> FF64
_ -> panic "PPC.Instr.mkSpillInstr: no match"
RcInteger -> II32
RcDouble -> FF64
_ -> panic "PPC.Instr.mkSpillInstr: no match"
@@
-369,7
+370,7
@@
ppc_mkLoadInstr
ppc_mkLoadInstr reg delta slot
= let off = spillSlotToOffset slot
in
ppc_mkLoadInstr reg delta slot
= let off = spillSlotToOffset slot
in
- let sz = case regClass reg of
+ let sz = case targetClassOfReg reg of
RcInteger -> II32
RcDouble -> FF64
_ -> panic "PPC.Instr.mkLoadInstr: no match"
RcInteger -> II32
RcDouble -> FF64
_ -> panic "PPC.Instr.mkLoadInstr: no match"