diff options
| author | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-11 22:55:42 +0000 |
|---|---|---|
| committer | Norman Ramsey <nr@eecs.harvard.edu> | 2007-09-11 22:55:42 +0000 |
| commit | 081b86a6337e4bc89b6cc76a57663ae146f32d94 (patch) | |
| tree | d222ba4ec50c5945ec420732240036a8cc7b471a /compiler/cmm/CmmCvt.hs | |
| parent | 90dc699314f566bc90fe5db551995b356b647e25 (diff) | |
| download | haskell-081b86a6337e4bc89b6cc76a57663ae146f32d94.tar.gz | |
renaming, reorganizing, and better doco for ZipCfg
Diffstat (limited to 'compiler/cmm/CmmCvt.hs')
| -rw-r--r-- | compiler/cmm/CmmCvt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmCvt.hs b/compiler/cmm/CmmCvt.hs index 655f2d3373..f0c2df530d 100644 --- a/compiler/cmm/CmmCvt.hs +++ b/compiler/cmm/CmmCvt.hs @@ -78,7 +78,7 @@ ofZgraph g = ListGraph $ swallow blocks mid m@(CopyIn {}) = pcomment (ppr m <+> text "(proc point)") pcomment p = scomment $ showSDoc p block' id prev' - | id == G.gr_entry g = BasicBlock id $ extend_entry (reverse prev') + | id == G.lg_entry g = BasicBlock id $ extend_entry (reverse prev') | otherwise = BasicBlock id $ extend_block id (reverse prev') last id prev' l n = let endblock stmt = block' id (stmt : prev') : swallow n in |