Subversion Repositories scarts

# frv testcase for sthfi $FRk,@($GRi,$GRj)
# mach: all

        .include "testutils.inc"

        start

        .global sthfi
sthfi:
        set_mem_limmed  0xdead,0xbeef,sp
        set_gr_gr       sp,gr20
        inc_gr_immed    -4,sp
        set_mem_limmed  0xbeef,0xdead,sp
        set_gr_gr       sp,gr21
        set_fr_iimmed   0xffff,0xffff,fr8

        sthfi           fr8,@(sp,0)
        test_mem_limmed 0xffff,0xdead,gr21
        test_mem_limmed 0xdead,0xbeef,gr20

        inc_gr_immed    0x802,sp        ; 2050
        sthfi           fr8,@(sp,-2048)
        test_mem_limmed 0xffff,0xffff,gr21
        test_mem_limmed 0xdead,0xbeef,gr20

        inc_gr_immed    -4092,sp
        sthfi           fr8,@(sp,0x7fe)
        test_mem_limmed 0xffff,0xffff,gr21
        test_mem_limmed 0xffff,0xbeef,gr20

        pass