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
-   | not (isFloatSize size) = VirtualRegI u
+   | not (isFloatSize size) = RegVirtual $ VirtualRegI u
    | otherwise
    = case size of
-        FF32   -> VirtualRegD u
-        FF64   -> VirtualRegD u
+        FF32   -> RegVirtual $ VirtualRegD u
+        FF64   -> RegVirtual $ VirtualRegD u
        _       -> panic "mkVReg"