X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FX86%2FCodeGen.hs;fp=compiler%2FnativeGen%2FX86%2FCodeGen.hs;h=5df8f7777e22b7d93e8b1890cb52ab7dc76958a5;hp=86ecbf99a52a6c3d5a9c8279b3186619f190c6b4;hb=bd9c83564a5bb03d38f00c5d42cc20eb917a6545;hpb=0dd5815f6d0076e04866acbf120957aa0cd8dee2

diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs
index 86ecbf9..5df8f77 100644
--- a/compiler/nativeGen/X86/CodeGen.hs
+++ b/compiler/nativeGen/X86/CodeGen.hs
@@ -431,7 +431,7 @@ getRegister (CmmReg reg)
          size | not use_sse2 && isFloatSize sz = FF80
               | otherwise                      = sz
        --
-       return (Fixed sz (getRegisterReg use_sse2 reg) nilOL)
+       return (Fixed size (getRegisterReg use_sse2 reg) nilOL)
   
 
 getRegister tree@(CmmRegOff _ _)