diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-13 14:45:12 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-13 14:45:12 +0100 |
| commit | 56a2003a5f5196f81abb3ad2459a386be83d13f2 (patch) | |
| tree | acc2871dd0eb45c9eda4c1444c1f5f213ca35c86 /compiler/cmm/CmmLayoutStack.hs | |
| parent | 83f5c6c69ceeff6cb6ca8d56dfad79c5e126a130 (diff) | |
| parent | 4780cbc13de5d527f481f7d78a46d9515378e1b5 (diff) | |
| download | haskell-56a2003a5f5196f81abb3ad2459a386be83d13f2.tar.gz | |
Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
Diffstat (limited to 'compiler/cmm/CmmLayoutStack.hs')
| -rw-r--r-- | compiler/cmm/CmmLayoutStack.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/cmm/CmmLayoutStack.hs b/compiler/cmm/CmmLayoutStack.hs index 5c4045778a..de9f35a798 100644 --- a/compiler/cmm/CmmLayoutStack.hs +++ b/compiler/cmm/CmmLayoutStack.hs @@ -258,6 +258,7 @@ collectContInfo blocks where (mb_argss, ret_offs) = mapAndUnzip get_cont blocks + get_cont :: Block CmmNode x C -> (Maybe (Label, ByteOff), ByteOff) get_cont b = case lastNode b of CmmCall { cml_cont = Just l, .. } |