diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-12-29 11:56:47 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-12-29 11:56:47 +0000 |
| commit | e19c29b97e0d338a4a424a478e2c6c5706589fe9 (patch) | |
| tree | c292564d8e66a8f8f3f1e8039d6befbbd9e939be | |
| parent | d8509623140a6423e1fca45a005efccee0489a46 (diff) | |
| download | haskell-e19c29b97e0d338a4a424a478e2c6c5706589fe9.tar.gz | |
Comment out dead function breakProc
| -rw-r--r-- | compiler/cmm/CmmBrokenBlock.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/cmm/CmmBrokenBlock.hs b/compiler/cmm/CmmBrokenBlock.hs index 301cd388de..ec9da97dc3 100644 --- a/compiler/cmm/CmmBrokenBlock.hs +++ b/compiler/cmm/CmmBrokenBlock.hs @@ -180,6 +180,9 @@ data FinalStmt -- the 'adaptBlockToFormat' function. -- could be +{- +UNUSED: 2008-12-29 + breakProc :: [BlockId] -- ^ Any GC blocks that should be special -> [[Unique]] -- ^ An infinite list of uniques @@ -212,6 +215,7 @@ breakProc gc_block_idents uniques info ident params blocks = zipWith (adaptBlockToFormat selected) adaptor_uniques (snd broken_blocks) +-} ----------------------------------------------------------------------------- -- | Takes a 'CmmBasicBlock' and breaks it up into a list of 'BrokenBlock' |