X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPPC%2FRegInfo.hs;fp=compiler%2FnativeGen%2FPPC%2FRegInfo.hs;h=719d76c3161094c3bfb9cf7f0b5f9b2327a8341c;hb=f9288086f935c97812b2d80defcff38baf7b6a6c;hp=b2806c74d15a1a12bf19ea31bcd1bd3d838b6554;hpb=de29a9f02449359b70402f763ac7590673774124;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PPC/RegInfo.hs b/compiler/nativeGen/PPC/RegInfo.hs
index b2806c7..719d76c 100644
--- 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"