diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-05-03 08:12:48 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-03 20:56:18 -0400 |
| commit | 0af93d16d93ee24efd6ed4a0466f813650b8788f (patch) | |
| tree | ffe85c3b3b7fc9ee7e2d2836ff5f37440a1dc0c4 | |
| parent | f862963b6cdd217730e4f36f07ad52ac9f7be7f3 (diff) | |
| download | haskell-0af93d16d93ee24efd6ed4a0466f813650b8788f.tar.gz | |
StgCmmMonad: remove emitProc_, don't export emitProc
| -rw-r--r-- | compiler/codeGen/StgCmmMonad.hs | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/compiler/codeGen/StgCmmMonad.hs b/compiler/codeGen/StgCmmMonad.hs index 18956006a8..8be5c4551f 100644 --- a/compiler/codeGen/StgCmmMonad.hs +++ b/compiler/codeGen/StgCmmMonad.hs @@ -16,7 +16,7 @@ module StgCmmMonad ( emitLabel, - emit, emitDecl, emitProc, + emit, emitDecl, emitProcWithConvention, emitProcWithStackFrame, emitOutOfLine, emitAssign, emitStore, emitComment, emitTick, emitUnwind, @@ -738,14 +738,14 @@ emitProcWithStackFrame emitProcWithStackFrame _conv mb_info lbl _stk_args [] blocks False = do { dflags <- getDynFlags - ; emitProc_ mb_info lbl [] blocks (widthInBytes (wordWidth dflags)) False + ; emitProc mb_info lbl [] blocks (widthInBytes (wordWidth dflags)) False } emitProcWithStackFrame conv mb_info lbl stk_args args (graph, tscope) True -- do layout = do { dflags <- getDynFlags ; let (offset, live, entry) = mkCallEntry dflags conv args stk_args graph' = entry MkGraph.<*> graph - ; emitProc_ mb_info lbl live (graph', tscope) offset True + ; emitProc mb_info lbl live (graph', tscope) offset True } emitProcWithStackFrame _ _ _ _ _ _ _ = panic "emitProcWithStackFrame" @@ -757,16 +757,12 @@ emitProcWithConvention conv mb_info lbl args blocks = emitProcWithStackFrame conv mb_info lbl [] args blocks True emitProc :: Maybe CmmInfoTable -> CLabel -> [GlobalReg] -> CmmAGraphScoped - -> Int -> FCode () -emitProc mb_info lbl live blocks offset - = emitProc_ mb_info lbl live blocks offset True - -emitProc_ :: Maybe CmmInfoTable -> CLabel -> [GlobalReg] -> CmmAGraphScoped - -> Int -> Bool -> FCode () -emitProc_ mb_info lbl live blocks offset do_layout + -> Int -> Bool -> FCode () +emitProc mb_info lbl live blocks offset do_layout = do { dflags <- getDynFlags ; l <- newBlockId ; let + blks :: CmmGraph blks = labelAGraph l blocks infos | Just info <- mb_info = mapSingleton (g_entry blks) info |