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/PprCmmZ.hs | |
| parent | 90dc699314f566bc90fe5db551995b356b647e25 (diff) | |
| download | haskell-081b86a6337e4bc89b6cc76a57663ae146f32d94.tar.gz | |
renaming, reorganizing, and better doco for ZipCfg
Diffstat (limited to 'compiler/cmm/PprCmmZ.hs')
| -rw-r--r-- | compiler/cmm/PprCmmZ.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/PprCmmZ.hs b/compiler/cmm/PprCmmZ.hs index fa930bd88e..e2fd960f0c 100644 --- a/compiler/cmm/PprCmmZ.hs +++ b/compiler/cmm/PprCmmZ.hs @@ -31,7 +31,7 @@ pprCmmGraphLikeCmm g = vcat (swallow blocks) mid m@(G.CopyIn {}) = ppr m <+> text "(proc point)" mid m = ppr m block' id prev' - | id == Z.gr_entry g, entry_has_no_pred = + | id == Z.lg_entry g, entry_has_no_pred = vcat (text "<entry>" : reverse prev') | otherwise = hang (ppr id <> colon) 4 (vcat (reverse prev')) last id prev' l n = @@ -88,7 +88,7 @@ pprCmmGraphLikeCmm g = vcat (swallow blocks) endblock (ppr $ CmmBranch id') -} preds = zipPreds g - entry_has_no_pred = case Z.lookupBlockEnv preds (Z.gr_entry g) of + entry_has_no_pred = case Z.lookupBlockEnv preds (Z.lg_entry g) of Nothing -> True Just s -> isEmptyUniqSet s single_preds = |