diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-14 20:20:47 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-14 20:20:47 +0100 |
| commit | 43e09ac7f7cb0d9523e74714c8f139c077216464 (patch) | |
| tree | cf969404ba31f1b6015ea59a0269f58c41efd9a2 /compiler/nativeGen/RegAlloc/Linear/Main.hs | |
| parent | 0692f7ec96cb2c89a5e645afec01475d91b712af (diff) | |
| download | haskell-43e09ac7f7cb0d9523e74714c8f139c077216464.tar.gz | |
Remove more Platform arguments
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Linear/Main.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index 5fdfe8cddb..8b8afd05af 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -480,7 +480,7 @@ genRaInsn block_live new_instrs block_id instr r_dying w_dying = do -- these dead regs might in fact be live in the jump targets (they're -- only dead in the code that follows in the current basic block). (fixup_blocks, adjusted_instr) - <- joinToTargets platform block_live block_id instr + <- joinToTargets block_live block_id instr -- (e) Delete all register assignments for temps which are read -- (only) and die here. Update the free register list. |