diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-24 11:42:21 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-28 09:16:44 +0100 |
| commit | c0849d8c4dbdabc657860d383474ee1e638b7c5f (patch) | |
| tree | dcb1fc18d399611fc23f7bf3f177c0c91161ab8e /compiler/nativeGen/PPC/Regs.hs | |
| parent | 1d36d88a681575176d026d7002e40d0ce5c45281 (diff) | |
| download | haskell-c0849d8c4dbdabc657860d383474ee1e638b7c5f.tar.gz | |
Fix -fPIC with the new code generator
The CmmBlocks inside CmmExprs were not getting the PIC treatment
Diffstat (limited to 'compiler/nativeGen/PPC/Regs.hs')
| -rw-r--r-- | compiler/nativeGen/PPC/Regs.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/nativeGen/PPC/Regs.hs b/compiler/nativeGen/PPC/Regs.hs index 4d06268a6c..b86df54b1e 100644 --- a/compiler/nativeGen/PPC/Regs.hs +++ b/compiler/nativeGen/PPC/Regs.hs @@ -54,7 +54,6 @@ import Reg import RegClass import Size -import BlockId import OldCmm import CLabel ( CLabel ) import Unique @@ -166,7 +165,6 @@ litToImm (CmmLabelDiffOff l1 l2 off) = ImmConstantSum (ImmConstantDiff (ImmCLbl l1) (ImmCLbl l2)) (ImmInt off) -litToImm (CmmBlock id) = ImmCLbl (infoTblLbl id) litToImm _ = panic "PPC.Regs.litToImm: no match" |