X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FSPARC%2FAddrMode.hs;h=58487941e30107d0a1653a46d8c48d4d66c17fb4;hb=c648345e3d82c0c40333bfd8ddea2633e21b08dc;hp=bd72cb3dd4ea203585e81ada771241fc8da2bed0;hpb=547bf6827f1fc3f2fb31bc6323cc0d33b445f32a;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/SPARC/AddrMode.hs b/compiler/nativeGen/SPARC/AddrMode.hs
index bd72cb3..5848794 100644
--- a/compiler/nativeGen/SPARC/AddrMode.hs
+++ b/compiler/nativeGen/SPARC/AddrMode.hs
@@ -35,7 +35,7 @@ addrOffset addr off
        | otherwise     -> Nothing
        where n2 = n + toInteger off
 
-      AddrRegReg r (RealReg 0)
+      AddrRegReg r (RegReal (RealRegSingle 0))
        | fits13Bits off -> Just (AddrRegImm r (ImmInt off))
        | otherwise     -> Nothing