diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-13 18:30:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-13 18:30:07 +0100 |
| commit | b522d3a3f970a043397a0d6556ca555648e7a9c3 (patch) | |
| tree | 515668f59eff1d8b88a8eca1c91809354b729d4a /compiler/nativeGen/RegAlloc | |
| parent | d6cef3c90c9395a5dae29897d333d5157a84778a (diff) | |
| download | haskell-b522d3a3f970a043397a0d6556ca555648e7a9c3.tar.gz | |
Stop exporting, and stop using, some deprecated functions
Diffstat (limited to 'compiler/nativeGen/RegAlloc')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Liveness.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/RegAlloc/Liveness.hs b/compiler/nativeGen/RegAlloc/Liveness.hs index 88023ec47f..5ceee3e242 100644 --- a/compiler/nativeGen/RegAlloc/Liveness.hs +++ b/compiler/nativeGen/RegAlloc/Liveness.hs @@ -667,11 +667,11 @@ regLiveness -> UniqSM (LiveCmmDecl statics instr) regLiveness (CmmData i d) - = returnUs $ CmmData i d + = return $ CmmData i d regLiveness (CmmProc info lbl []) | LiveInfo static mFirst _ _ <- info - = returnUs $ CmmProc + = return $ CmmProc (LiveInfo static mFirst (Just mapEmpty) Map.empty) lbl [] @@ -679,7 +679,7 @@ regLiveness (CmmProc info lbl sccs) | LiveInfo static mFirst _ liveSlotsOnEntry <- info = let (ann_sccs, block_live) = computeLiveness sccs - in returnUs $ CmmProc (LiveInfo static mFirst (Just block_live) liveSlotsOnEntry) + in return $ CmmProc (LiveInfo static mFirst (Just block_live) liveSlotsOnEntry) lbl ann_sccs |