diff options
| -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 |