Subversion Repositories openrisc

;;; Bug #1825: gas assemble PC-relative indexed addressing modes incorrectly

;;; http://savannah.gnu.org/bugs/?func=detailbug&bug_id=1825&group_id=2424

;;; 

        .sect .text

        .globl _main

_main:

        nop

        ldx     L1,pc           ; Assemble to 5-bit > 0 offset

        bra     L2

L1:

        .dc.w   0xaabb

L2:

        subd    L1,pc           ; Assemble to 5-bit < 0 offset

L3:

        .ds.b   14, 0xA7

        ldab    L3,pc           ; 5-bit < 0 offset

        ldab    L4,pc           ; 5-bit > 0 offset

        .skip   15

L4:

        .skip   128

        subd    L4,pc           ; 9-bit < 0 offset

        addd    L5,pc           ; 9-bit > 0 offset

        .skip   128

L5:

        .skip   256-3

        orab    L5,pc           ; 9 bit < 0 offset (min value)

        oraa    L6,pc           ; 9 bit > 0 offset (max value)

        .skip   255

L6:

        .skip   256-2

        orab    L6,pc           ; 16 bit < 0 offset

        anda    _main,pc        ; 16 bit < 0 offset

        andb    L7,pc

        .skip   256

L7:

        stab    external,pc     ; External 16-bit PCREL

        ldd     _table,pc

        addd    _table+2,pc

        subd    _table+4,pc

        addd    _table+8,pc

        addd    _table+12,pc

        addd    _table+16,pc

        rts

        nop

_table:

        .ds.b   16,0

        leax    _table,sp       ; 16-bit absolute reloc

        leay    _table,x

        leax    _table,y