Subversion Repositories scarts

# frv testcase for rett $debug
# mach: all

        .include "testutils.inc"

        start

        .global rett
rett:
        and_spr_immed   -4081,tbr               ; clear tbr.tt
        set_gr_spr      tbr,gr7
        inc_gr_immed    2112,gr7                ; address of exception handler
        set_bctrlr_0_0  gr7

        set_spr_immed   128,lcr
        set_gr_immed    0,gr7

        set_psr_et      1
        set_spr_addr    ok1,lr
        set_icc         0x0 0
        tira            gr7,4           ; should branch to tbr + (128 + 4)*16
ok0:
        test_gr_immed   1,gr7
        pass
        fail
ok1:
        inc_gr_immed    1,gr7
        rett            1               ; should be a nop
        rett            0
        fail