diff options
| author | Geoffrey Mainland <mainland@apeiron.net> | 2016-01-28 10:34:53 -0500 |
|---|---|---|
| committer | Geoffrey Mainland <mainland@apeiron.net> | 2016-01-31 13:01:31 -0500 |
| commit | 90f688e892427b1894b6aacb1f8de8d2e41ecb56 (patch) | |
| tree | de11f383674104199f13ade47bda5f888f14b9d2 /utils/genapply | |
| parent | 4d0e4fe66892f6700c2bcd4ddcd1d1a837c38a56 (diff) | |
| download | haskell-90f688e892427b1894b6aacb1f8de8d2e41ecb56.tar.gz | |
Code formatting cleanup.
Diffstat (limited to 'utils/genapply')
| -rw-r--r-- | utils/genapply/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index 50904ea7c0..58bee53a39 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -157,10 +157,10 @@ mkJump :: RegStatus -- Registerised status -> [ArgRep] -- Jump arguments -> Doc mkJump regstatus jump live args = - text "jump " <> jump <+> brackets (hcat (punctuate comma (map text regs))) + text "jump" <+> jump <+> brackets (hcat (punctuate comma (map text regs))) where - (reg_locs, _, _) = assignRegs regstatus 0 args - regs = (nub . sort) (live ++ map fst reg_locs) + (reg_locs, _, _) = assignRegs regstatus 0 args + regs = (nub . sort) (live ++ map fst reg_locs) -- make a ptr/non-ptr bitmap from a list of argument types mkBitmap :: [ArgRep] -> Word32 |