diff options
| author | Geoffrey Mainland <gmainlan@microsoft.com> | 2012-10-17 17:03:13 +0100 |
|---|---|---|
| committer | Geoffrey Mainland <gmainlan@microsoft.com> | 2012-10-30 12:50:54 +0000 |
| commit | 8e8168446a6f1fe2747ba10bc76053097862f4db (patch) | |
| tree | 7445ec05077e5508ccafd3cd7c3ed430e25142ac /compiler/nativeGen/X86/CodeGen.hs | |
| parent | 092c0bd466230cf248ecb996fd5891c413ed7b7d (diff) | |
| download | haskell-8e8168446a6f1fe2747ba10bc76053097862f4db.tar.gz | |
Cmm jumps always have live register information.
Jumps now always have live register information attached, so drop Maybes.
Diffstat (limited to 'compiler/nativeGen/X86/CodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/X86/CodeGen.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs index 7ab30bf922..89e81b48c9 100644 --- a/compiler/nativeGen/X86/CodeGen.hs +++ b/compiler/nativeGen/X86/CodeGen.hs @@ -173,9 +173,8 @@ stmtToInstrs stmt = do panic "stmtToInstrs: return statement should have been cps'd away" -jumpRegs :: DynFlags -> Maybe [GlobalReg] -> [Reg] -jumpRegs dflags Nothing = allHaskellArgRegs dflags -jumpRegs dflags (Just gregs) = [ RegReal r | Just r <- map (globalRegMaybe platform) gregs ] +jumpRegs :: DynFlags -> [GlobalReg] -> [Reg] +jumpRegs dflags gregs = [ RegReal r | Just r <- map (globalRegMaybe platform) gregs ] where platform = targetPlatform dflags -------------------------------------------------------------------------------- |