diff options
| author | markus <markus.grosser@tum.de> | 2015-07-07 16:59:40 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-07-07 16:59:40 +0200 |
| commit | 31580e2c81543a58c0d352154c6109d843978cdf (patch) | |
| tree | 70704c6c72747ccc1e965cac1bc2f0cd3dba9e40 /compiler/nativeGen/SPARC/CodeGen/Base.hs | |
| parent | f753cf11eb9e310b54b08d9a1ea1d11540d8eb69 (diff) | |
| download | haskell-31580e2c81543a58c0d352154c6109d843978cdf.tar.gz | |
Fix todo in compiler/nativeGen: Rename Size to Format
This commit renames the Size module in the native code generator to
Format, as proposed by a todo, as well as adjusting parameter names in
other modules that use it.
Test Plan: validate
Reviewers: austin, simonmar, bgamari
Reviewed By: simonmar, bgamari
Subscribers: bgamari, simonmar, thomie
Projects: #ghc
Differential Revision: https://phabricator.haskell.org/D865
Diffstat (limited to 'compiler/nativeGen/SPARC/CodeGen/Base.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen/Base.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen/Base.hs b/compiler/nativeGen/SPARC/CodeGen/Base.hs index 270fd699b0..27b533f46b 100644 --- a/compiler/nativeGen/SPARC/CodeGen/Base.hs +++ b/compiler/nativeGen/SPARC/CodeGen/Base.hs @@ -5,7 +5,7 @@ module SPARC.CodeGen.Base ( Amode(..), Register(..), - setSizeOfRegister, + setFormatOfRegister, getRegisterReg, mangleIndexTree @@ -17,7 +17,7 @@ import SPARC.Instr import SPARC.Cond import SPARC.AddrMode import SPARC.Regs -import Size +import Format import Reg import CodeGen.Platform @@ -76,18 +76,18 @@ data Amode -- Otherwise, the parent can decide which register to put it in. -- data Register - = Fixed Size Reg InstrBlock - | Any Size (Reg -> InstrBlock) + = Fixed Format Reg InstrBlock + | Any Format (Reg -> InstrBlock) --- | Change the size field in a Register. -setSizeOfRegister - :: Register -> Size -> Register +-- | Change the format field in a Register. +setFormatOfRegister + :: Register -> Format -> Register -setSizeOfRegister reg size +setFormatOfRegister reg format = case reg of - Fixed _ reg code -> Fixed size reg code - Any _ codefn -> Any size codefn + Fixed _ reg code -> Fixed format reg code + Any _ codefn -> Any format codefn -------------------------------------------------------------------------------- @@ -95,7 +95,7 @@ setSizeOfRegister reg size getRegisterReg :: Platform -> CmmReg -> Reg getRegisterReg _ (CmmLocal (LocalReg u pk)) - = RegVirtual $ mkVirtualReg u (cmmTypeSize pk) + = RegVirtual $ mkVirtualReg u (cmmTypeFormat pk) getRegisterReg platform (CmmGlobal mid) = case globalRegMaybe platform mid of |