diff options
| author | dias@eecs.harvard.edu <unknown> | 2009-03-03 15:02:28 +0000 |
|---|---|---|
| committer | dias@eecs.harvard.edu <unknown> | 2009-03-03 15:02:28 +0000 |
| commit | 31a9d04804d9cacda35695c5397590516b964964 (patch) | |
| tree | 1253be42d69db8ab7a6d104e2eda8d03a44a9be2 /compiler/cmm/Cmm.hs | |
| parent | 6d38e24ea3da7ca9b435e9b1e59b2de8fcd91da4 (diff) | |
| download | haskell-31a9d04804d9cacda35695c5397590516b964964.tar.gz | |
A few bug fixes; some improvements spurred by paper writing
Among others:
- Fixed Stg->C-- translation of let-no-escapes -- it's important to use the
right continuation...
- Fixed infinite recursion in X86 backend (shortcutJump mishandled infinite loops)
- Fixed yet another wrong calling convention -- primops take args only in vanilla regs,
but they may return results on the stack!
- Removed StackInfo from LGraph and Block -- now in LastCall and CmmZ
- Updated avail-variable and liveness code
Diffstat (limited to 'compiler/cmm/Cmm.hs')
| -rw-r--r-- | compiler/cmm/Cmm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/Cmm.hs b/compiler/cmm/Cmm.hs index 2ee259c78a..383ed060e0 100644 --- a/compiler/cmm/Cmm.hs +++ b/compiler/cmm/Cmm.hs @@ -135,7 +135,7 @@ cmmTopMapGraphM :: Monad m => (String -> g -> m g') -> GenCmmTop d h g -> m (Gen cmmMapGraph f (Cmm tops) = Cmm $ map (cmmTopMapGraph f) tops cmmTopMapGraph f (CmmProc h l args g) = CmmProc h l args (f g) -cmmTopMapGraph _ (CmmData s ds) = CmmData s ds +cmmTopMapGraph _ (CmmData s ds) = CmmData s ds cmmMapGraphM f (Cmm tops) = mapM (cmmTopMapGraphM f) tops >>= return . Cmm cmmTopMapGraphM f (CmmProc h l args g) = |