1 files changed, 6 insertions, 6 deletions
diff --git a/compiler/nativeGen/SPARC/Regs.hs b/compiler/nativeGen/SPARC/Regs.hs
index 394389c4bf..d02747da4f 100644
--- a/compiler/nativeGen/SPARC/Regs.hs
+++ b/compiler/nativeGen/SPARC/Regs.hs
@@ -35,7 +35,7 @@ where
 import CodeGen.Platform.SPARC
 import Reg
 import RegClass
-import Size
+import Format
 
 import Unique
 import Outputable
@@ -245,14 +245,14 @@ callClobberedRegs
 
 
 
--- | Make a virtual reg with this size.
-mkVirtualReg :: Unique -> Size -> VirtualReg
-mkVirtualReg u size
-        | not (isFloatSize size)
+-- | Make a virtual reg with this format.
+mkVirtualReg :: Unique -> Format -> VirtualReg
+mkVirtualReg u format
+        | not (isFloatFormat format)
         = VirtualRegI u
 
         | otherwise
-        = case size of
+        = case format of
                 FF32    -> VirtualRegF u
                 FF64    -> VirtualRegD u
                 _       -> panic "mkVReg"