diff options
Diffstat (limited to 'compiler/nativeGen/SPARC/AddrMode.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/AddrMode.hs | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/compiler/nativeGen/SPARC/AddrMode.hs b/compiler/nativeGen/SPARC/AddrMode.hs index f00458af81..bf4d480005 100644 --- a/compiler/nativeGen/SPARC/AddrMode.hs +++ b/compiler/nativeGen/SPARC/AddrMode.hs @@ -1,14 +1,7 @@ -{-# OPTIONS -fno-warn-tabs #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and --- detab the module (please do the detabbing in a separate patch). See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces --- for details - module SPARC.AddrMode ( - AddrMode(..), - addrOffset + AddrMode(..), + addrOffset ) where @@ -20,11 +13,11 @@ import Reg -- addressing modes ------------------------------------------------------------ -- | Represents a memory address in an instruction. --- Being a RISC machine, the SPARC addressing modes are very regular. +-- Being a RISC machine, the SPARC addressing modes are very regular. -- data AddrMode - = AddrRegReg Reg Reg -- addr = r1 + r2 - | AddrRegImm Reg Imm -- addr = r1 + imm + = AddrRegReg Reg Reg -- addr = r1 + r2 + | AddrRegImm Reg Imm -- addr = r1 + imm -- | Add an integer offset to the address in an AddrMode. @@ -45,5 +38,5 @@ addrOffset addr off AddrRegReg r (RegReal (RealRegSingle 0)) | fits13Bits off -> Just (AddrRegImm r (ImmInt off)) | otherwise -> Nothing - + _ -> Nothing |