diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-15 02:26:24 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-15 02:29:34 +0100 |
| commit | f07af788f1d8009034332a5c0b659486fa9b4d26 (patch) | |
| tree | 767f69e46f5bd58ce2822cd815f97c91d0959ba4 /compiler/nativeGen/PPC/CodeGen.hs | |
| parent | 58cc5ed228adce6529eb1e0a849e5d9ca6175524 (diff) | |
| download | haskell-f07af788f1d8009034332a5c0b659486fa9b4d26.tar.gz | |
More work towards cross-compilation
There's now a variant of the Outputable class that knows what
platform we're targetting:
class PlatformOutputable a where
pprPlatform :: Platform -> a -> SDoc
pprPlatformPrec :: Platform -> Rational -> a -> SDoc
and various instances have had to be converted to use that class,
and we pass Platform around accordingly.
Diffstat (limited to 'compiler/nativeGen/PPC/CodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index 89ad516875..71373ee21d 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -66,10 +66,11 @@ import FastString -- order. cmmTopCodeGen - :: RawCmmTop + :: Platform + -> RawCmmTop -> NatM [NatCmmTop CmmStatics Instr] -cmmTopCodeGen (CmmProc info lab (ListGraph blocks)) = do +cmmTopCodeGen _ (CmmProc info lab (ListGraph blocks)) = do (nat_blocks,statics) <- mapAndUnzipM basicBlockCodeGen blocks picBaseMb <- getPicBaseMaybeNat dflags <- getDynFlagsNat @@ -80,7 +81,7 @@ cmmTopCodeGen (CmmProc info lab (ListGraph blocks)) = do Just picBase -> initializePicBase_ppc ArchPPC os picBase tops Nothing -> return tops -cmmTopCodeGen (CmmData sec dat) = do +cmmTopCodeGen _ (CmmData sec dat) = do return [CmmData sec dat] -- no translation, we just use CmmStatic basicBlockCodeGen |