X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FRegInfo.hs;fp=compiler%2FnativeGen%2FX86%2FRegInfo.hs;h=48d983c173bea6bf6ebae3f942967523ce72f64c;hb=f9288086f935c97812b2d80defcff38baf7b6a6c;hp=39ff4063b02a7227e62d2db445101a0d211b0dee;hpb=de29a9f02449359b70402f763ac7590673774124;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/X86/RegInfo.hs b/compiler/nativeGen/X86/RegInfo.hs
index 39ff406..48d983c 100644
--- a/compiler/nativeGen/X86/RegInfo.hs
+++ b/compiler/nativeGen/X86/RegInfo.hs
@@ -34,11 +34,11 @@ import UniqFM
 
 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"