diff options
| author | Takenobu Tani <takenobu.hs@gmail.com> | 2017-02-04 15:16:10 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-02-04 16:16:50 -0500 |
| commit | bd818a7ce0b872fc0b03375c65d55932ada1940d (patch) | |
| tree | 74f1e9a5fcd5d41c3d96c2dcd46736638a05d0c3 /utils/genapply | |
| parent | 68cbe52fd3ae618a9778e79bf6a9806bab21aff2 (diff) | |
| download | haskell-bd818a7ce0b872fc0b03375c65d55932ada1940d.tar.gz | |
Fix comment (old file names) in mk/ and utils/
There ware some old file names (.lhs, ...) at comments.
* mk/config.mk.in
- compiler/hsSyn/HsExpr.lhs -> HsExpr.hs
* utils/ghc-pkg/Main.hs
- compiler/main/Packages.lhs -> Packages.hs
* utils/genapply/Main.hs
- CgRetConv.lhs -> * REMOVE THIS COMMENT (OLDER FILE THAN GHC6) *
- Constants.lhs -> Constants.hs
- compiler/codeGen/CgCallConv.lhs -> compiler/codeGen/StgCmmLayout.hs
- Apply.hc -> Apply.cmm
- HeapStackCheck.hc -> HeapStackCheck.cmm
Reviewers: mpickering, austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D3077
Diffstat (limited to 'utils/genapply')
| -rw-r--r-- | utils/genapply/Main.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/utils/genapply/Main.hs b/utils/genapply/Main.hs index c5752fe027..f9d6ea1e3f 100644 --- a/utils/genapply/Main.hs +++ b/utils/genapply/Main.hs @@ -106,7 +106,6 @@ loadRegOffs = vcat . map (uncurry assign_stk_to_reg) saveRegOffs :: [(Reg,Int)] -> Doc saveRegOffs = vcat . map (uncurry assign_reg_to_stk) --- a bit like assignRegs in CgRetConv.lhs assignRegs :: RegStatus -- are we registerised? -> Int -- Sp of first arg @@ -332,7 +331,7 @@ genMkPAP regstatus macro jump live ticker disamb -- for a PAP, we have to arrange that the stack contains a -- return address in the event that stg_PAP_entry fails its - -- heap check. See stg_PAP_entry in Apply.hc for details. + -- heap check. See stg_PAP_entry in Apply.cmm for details. if is_pap then text "R2 = " <> mkApplyInfoName this_call_args <> semi @@ -524,7 +523,7 @@ enterFastPath regstatus no_load_regs args_in_regs args = enterFastPathHelper tag regstatus no_load_regs args_in_regs args enterFastPath _ _ _ _ = empty --- Copied from Constants.lhs & CgUtils.hs, i'd rather have this imported: +-- Copied from Constants.hs & CgUtils.hs, i'd rather have this imported: -- (arity,tag) tAG_BITS = (TAG_BITS :: Int) tAG_BITS_MAX = ((1 `shiftL` tAG_BITS) :: Int) @@ -903,7 +902,7 @@ genStackApply regstatus args = -- These code fragments are used to save registers on the stack at a heap -- check failure in the entry code for a function. We also have to save R1 -- and the return address (stg_gc_fun_info) on the stack. See stg_gc_fun_gen --- in HeapStackCheck.hc for more details. +-- in HeapStackCheck.cmm for more details. mkStackSaveEntryLabel :: [ArgRep] -> Doc mkStackSaveEntryLabel args = text "stg_stk_save_" <> text (concatMap showArg args) @@ -925,7 +924,8 @@ genStackSave regstatus args = ] std_frame_size = 3 -- the std bits of the frame. See StgRetFun in Closures.h, - -- and the comment on stg_fun_gc_gen in HeapStackCheck.hc. + -- and the comment on stg_fun_gc_gen + -- in HeapStackCheck.cmm. (reg_locs, leftovers, sp_offset) = assignRegs regstatus std_frame_size args -- number of words of arguments on the stack. @@ -994,7 +994,7 @@ applyTypes = [ -- -- NOTE: other places to change if you change stackApplyTypes: -- - includes/rts/storage/FunTypes.h --- - compiler/codeGen/CgCallConv.lhs: stdPattern +-- - compiler/codeGen/StgCmmLayout.hs: stdPattern stackApplyTypes = [ [], [N], |