Commit bd9398e1 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix some whitespace

parent 7f476a8a
...@@ -537,22 +537,22 @@ forkAlts :: [FCode a] -> FCode [a] ...@@ -537,22 +537,22 @@ forkAlts :: [FCode a] -> FCode [a]
-- that the virtual Hp is moved on to the worst virtual Hp for the branches -- that the virtual Hp is moved on to the worst virtual Hp for the branches
forkAlts branch_fcodes forkAlts branch_fcodes
= do { info_down <- getInfoDown = do { info_down <- getInfoDown
; us <- newUniqSupply ; us <- newUniqSupply
; state <- getState ; state <- getState
; let compile us branch ; let compile us branch
= (us2, doFCode branch info_down branch_state) = (us2, doFCode branch info_down branch_state)
where where
(us1,us2) = splitUniqSupply us (us1,us2) = splitUniqSupply us
branch_state = (initCgState us1) { branch_state = (initCgState us1) {
cgs_binds = cgs_binds state, cgs_binds = cgs_binds state,
cgs_hp_usg = cgs_hp_usg state } cgs_hp_usg = cgs_hp_usg state }
(_us, results) = mapAccumL compile us branch_fcodes (_us, results) = mapAccumL compile us branch_fcodes
(branch_results, branch_out_states) = unzip results (branch_results, branch_out_states) = unzip results
; setState $ foldl stateIncUsage state branch_out_states ; setState $ foldl stateIncUsage state branch_out_states
-- NB foldl. state is the *left* argument to stateIncUsage -- NB foldl. state is the *left* argument to stateIncUsage
; return branch_results } ; return branch_results }
-- collect the code emitted by an FCode computation -- collect the code emitted by an FCode computation
getCodeR :: FCode a -> FCode (a, CmmAGraph) getCodeR :: FCode a -> FCode (a, CmmAGraph)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment