[GHC] #7814: panic in PPC NCG

[GHC]

#7814: panic in PPC NCG
--------------------------------+-------------------------------------------
Reporter:  heisenbug            |          Owner:          
    Type:  bug                  |         Status:  new     
Priority:  normal               |      Component:  Compiler
 Version:  7.7                  |       Keywords:          
      Os:  Unknown/Multiple     |   Architecture:  powerpc 
 Failure:  Building GHC failed  |      Blockedby:          
Blocking:                       |        Related:          
--------------------------------+-------------------------------------------

Comment(by heisenbug):

 {{{
 $ diff -u good bad
 --- good        2013-04-05 15:40:25.296498000 +0200
 +++ bad 2013-04-05 15:40:34.172566000 +0200
 @@ -15,11 +15,11 @@
            if ((Sp + -12) < SpLim) goto cj; else goto cl;
        cj: R1 = _cc::P32;
            call (I32[BaseReg - 12])(R1) args: 4, res: 0, upd: 4;
 -      cl: I32[Sp - 8] = stg_upd_frame_info;
 +      cl: I32[Sp - 8] = I32[PicBaseReg + .LC_stg_upd_frame_info-.LCTOC1];
            P32[Sp - 4] = _cc::P32;
            _cf::P32 = I32[_cc::P32 + 8];
            if (_cf::P32 & 3 != 0) goto co; else goto cn;
 -      cn: I32[Sp - 12] = block_ce_info;
 +      cn: I32[Sp - 12] = I32[PicBaseReg + .LC_block_ce_info-.LCTOC1];
            R1 = _cf::P32;
            Sp = Sp - 12;
            call (I32[_cf::P32])(R1) returns to ce, args: 4, res: 4, upd:
 12;
 @@ -28,7 +28,7 @@
            goto co;
        co: R1 = I32[_cf::P32 & (-4) + 4];
            Sp = Sp - 8;
 -          call stg_ap_0_fast(R1) args: 12, res: 0, upd: 12;
 +          call (I32[PicBaseReg + .LC_stg_ap_0_fast-.LCTOC1])(R1) args:
 12, res: 0, upd: 12;
      }
  }
 }}}

 The problem seems to be the !PicBaseReg. Above 'good' is without "-fPIC
 -dynamic" and 'bad' with them.

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/7814#comment:3>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler