diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-15 18:13:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-15 19:03:23 +0100 |
| commit | 730301c60e6ccd9ed4fb248bcd2399f938a43d25 (patch) | |
| tree | 680c524b5353acaff547e2a739185f3593557873 /compiler/nativeGen/PPC/CodeGen.hs | |
| parent | 5c718b15e83e3b205e13c882660a4952714c3b4c (diff) | |
| download | haskell-730301c60e6ccd9ed4fb248bcd2399f938a43d25.tar.gz | |
Remove more defaultTargetPlatform uses
Diffstat (limited to 'compiler/nativeGen/PPC/CodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index 71373ee21d..4560266884 100644 --- a/compiler/nativeGen/PPC/CodeGen.hs +++ b/compiler/nativeGen/PPC/CodeGen.hs @@ -404,11 +404,12 @@ getRegister' dflags (CmmMachOp (MO_SS_Conv W64 W32) [x]) ChildCode64 code rlo <- iselExpr64 x return $ Fixed II32 rlo code -getRegister' _ (CmmLoad mem pk) +getRegister' dflags (CmmLoad mem pk) | not (isWord64 pk) = do + let platform = targetPlatform dflags Amode addr addr_code <- getAmode mem - let code dst = ASSERT((targetClassOfReg dst == RcDouble) == isFloatType pk) + let code dst = ASSERT((targetClassOfReg platform dst == RcDouble) == isFloatType pk) addr_code `snocOL` LD size dst addr return (Any size code) where size = cmmTypeSize pk |