projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Split Reg into vreg/hreg and add register pairs
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
PPC
/
RegInfo.hs
diff --git
a/compiler/nativeGen/PPC/RegInfo.hs
b/compiler/nativeGen/PPC/RegInfo.hs
index
b2806c7
..
719d76c
100644
(file)
--- a/
compiler/nativeGen/PPC/RegInfo.hs
+++ b/
compiler/nativeGen/PPC/RegInfo.hs
@@
-37,11
+37,11
@@
import Unique
mkVReg :: Unique -> Size -> Reg
mkVReg u size
mkVReg :: Unique -> Size -> Reg
mkVReg u size
- | not (isFloatSize size) = VirtualRegI u
+ | not (isFloatSize size) = RegVirtual $ VirtualRegI u
| otherwise
= case size of
| otherwise
= case size of
- FF32 -> VirtualRegD u
- FF64 -> VirtualRegD u
+ FF32 -> RegVirtual $ VirtualRegD u
+ FF64 -> RegVirtual $ VirtualRegD u
_ -> panic "mkVReg"
_ -> panic "mkVReg"