diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-16 12:53:31 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-16 12:53:31 +0100 |
| commit | d6c1311a30471eb252db321c6151214ad1eb1fbb (patch) | |
| tree | 002a6de408e22ba77f9a3817ac84152316187c41 /compiler/nativeGen/RegAlloc | |
| parent | 5f745f250afe96279dcef05edf66cfd07dbc8126 (diff) | |
| download | haskell-d6c1311a30471eb252db321c6151214ad1eb1fbb.tar.gz | |
Fix a warning
Diffstat (limited to 'compiler/nativeGen/RegAlloc')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/SpillClean.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs index ec58378255..64069ddec9 100644 --- a/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs +++ b/compiler/nativeGen/RegAlloc/Graph/SpillClean.hs @@ -1,4 +1,3 @@ -{-# OPTIONS -fno-warn-missing-signatures #-} -- | Clean out unneeded spill\/reload instrs -- -- * Handling of join points @@ -333,6 +332,13 @@ cleanBackward liveSlotsOnEntry noReloads acc lis = do reloadedBy <- gets sReloadedBy cleanBackward' liveSlotsOnEntry reloadedBy noReloads acc lis +cleanBackward' :: Instruction instr + => Map BlockId (Set Int) + -> UniqFM [BlockId] + -> UniqSet Int + -> [LiveInstr instr] + -> [LiveInstr instr] + -> State CleanS [LiveInstr instr] cleanBackward' _ _ _ acc [] = return acc |