Subversion Repositories openrisc

! Check that PTB to a assembly-time-resolvable SHcompact operand gets an

! error.  Mostly like err-ptb-1.s, except we also specify --no-expand.

! { dg-do assemble }

! { dg-options "--abi=32 --no-expand" }

        .text

        .mode SHmedia

start:

        ptb shmediasymbol1,tr1          ! { dg-error "PTB operand is a SHmedia symbol" }

shmediasymbol3:

        ptb shcompactsymbol1,tr1

        pta shcompactsymbol2,tr3        ! { dg-error "PTA operand is a SHcompact symbol" }

shmediasymbol1:

        ptb shmediasymbol2,tr2          ! { dg-error "PTB operand is a SHmedia symbol" }

        .mode SHcompact

shcompact:

        nop

        nop

shcompactsymbol2:

        nop

        nop

shcompactsymbol1:

        nop

        nop

        .mode SHmedia

shmedia:

        nop

shmediasymbol2:

        nop

        ptb shmediasymbol3,tr3          ! { dg-error "PTB operand is a SHmedia symbol" }

        nop