diff options
Diffstat (limited to 'compiler/GHC/Cmm/ProcPoint.hs')
| -rw-r--r-- | compiler/GHC/Cmm/ProcPoint.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/ProcPoint.hs b/compiler/GHC/Cmm/ProcPoint.hs index cd55b4d255..9297a25378 100644 --- a/compiler/GHC/Cmm/ProcPoint.hs +++ b/compiler/GHC/Cmm/ProcPoint.hs @@ -213,7 +213,7 @@ extendPPSet platform g blocks procPoints = ProcPoint -> 1 ReachedBy ps -> setSize ps block_procpoints = nreached (entryLabel b) - -- | Looking for a successor of b that is reached by + -- Looking for a successor of b that is reached by -- more proc points than b and is not already a proc -- point. If found, it can become a proc point. newId succ_id = not (setMember succ_id procPoints') && |