diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-06-08 19:24:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-06-08 19:24:07 +0100 |
| commit | 8133a9f47b99f4e65ed30551de32ad72c6b61b27 (patch) | |
| tree | ddc07f2d43f1250e1a0aafe6c20cb6d1361c4129 /compiler/nativeGen/SPARC/CodeGen.hs | |
| parent | 265bedd9b4869cf5f323ab32ed1e4af0f7a0bfe0 (diff) | |
| download | haskell-8133a9f47b99f4e65ed30551de32ad72c6b61b27.tar.gz | |
cmmTopCodeGen no longer takes DynFlags as an argument
It is in the NatM monad, which has DynFlags as part of its state.
Diffstat (limited to 'compiler/nativeGen/SPARC/CodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/SPARC/CodeGen.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/compiler/nativeGen/SPARC/CodeGen.hs b/compiler/nativeGen/SPARC/CodeGen.hs index beb48d6656..a4dbbe8771 100644 --- a/compiler/nativeGen/SPARC/CodeGen.hs +++ b/compiler/nativeGen/SPARC/CodeGen.hs @@ -47,15 +47,13 @@ import Outputable import Unique import Control.Monad ( mapAndUnzipM ) -import DynFlags -- | Top level code generation cmmTopCodeGen - :: DynFlags - -> RawCmmTop + :: RawCmmTop -> NatM [NatCmmTop Instr] -cmmTopCodeGen _ +cmmTopCodeGen (CmmProc info lab (ListGraph blocks)) = do (nat_blocks,statics) <- mapAndUnzipM basicBlockCodeGen blocks @@ -65,7 +63,7 @@ cmmTopCodeGen _ return tops -cmmTopCodeGen _ (CmmData sec dat) = do +cmmTopCodeGen (CmmData sec dat) = do return [CmmData sec dat] -- no translation, we just use CmmStatic |