diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-09-20 13:32:12 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-20 14:00:07 +0100 |
| commit | 987710c1eb099ecd8982ef1c212450f9640d99ff (patch) | |
| tree | 65abc51b2e5084cd39d0292b4ea0104593082047 /compiler/cmm/MkGraph.hs | |
| parent | 448ad24fd71b3aa399a80083515ab655b11756ba (diff) | |
| download | haskell-987710c1eb099ecd8982ef1c212450f9640d99ff.tar.gz | |
non-tablesNextToCode fix for returns in the new codegen
Diffstat (limited to 'compiler/cmm/MkGraph.hs')
| -rw-r--r-- | compiler/cmm/MkGraph.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/cmm/MkGraph.hs b/compiler/cmm/MkGraph.hs index 3233dbed8c..5ea3d656a3 100644 --- a/compiler/cmm/MkGraph.hs +++ b/compiler/cmm/MkGraph.hs @@ -11,7 +11,7 @@ module MkGraph , mkJumpReturnsTo , mkJump, mkDirectJump, mkForeignJump, mkForeignJumpExtra, mkJumpGC , mkCbranch, mkSwitch - , mkReturn, mkReturnSimple, mkComment, mkCallEntry, mkBranch + , mkReturn, mkComment, mkCallEntry, mkBranch , copyInOflow, copyOutOflow , noExtraStack , toCall, Transfer(..) @@ -228,11 +228,6 @@ mkReturn dflags e actuals updfr_off = lastWithArgs dflags Ret Old NativeReturn actuals updfr_off $ toCall e Nothing updfr_off 0 -mkReturnSimple :: DynFlags -> [CmmActual] -> UpdFrameOffset -> CmmAGraph -mkReturnSimple dflags actuals updfr_off = - mkReturn dflags e actuals updfr_off - where e = CmmLoad (CmmStackSlot Old updfr_off) (gcWord dflags) - mkBranch :: BlockId -> CmmAGraph mkBranch bid = mkLast (CmmBranch bid) |