Subversion Repositories scarts

# frv parallel testcase for stqf $GRk,@($GRi,$GRj)
# mach: frv
# as(frv): -mcpu=frv

        .include "testutils.inc"

        start

        .global stqf
stqf:
        set_mem_limmed  0xbeef,0xdead,sp
        inc_gr_immed    -4,sp
        set_mem_limmed  0xdead,0xbeef,sp
        inc_gr_immed    -4,sp
        set_mem_limmed  0xdead,0xdead,sp
        inc_gr_immed    -4,sp
        set_mem_limmed  0xbeef,0xbeef,sp
        set_gr_immed    0,gr7
        set_fr_iimmed   0xbeef,0xdead,fr8
        set_fr_iimmed   0xdead,0xbeef,fr9
        set_fr_iimmed   0xdead,0xdead,fr10
        set_fr_iimmed   0xbeef,0xbeef,fr11
        stqf            fr8,@(sp,gr7)           ; non-parallel
        test_mem_limmed 0xbeef,0xdead,sp
        inc_gr_immed    4,sp
        test_mem_limmed 0xdead,0xbeef,sp
        inc_gr_immed    4,sp
        test_mem_limmed 0xdead,0xdead,sp
        inc_gr_immed    4,sp
        test_mem_limmed 0xbeef,0xbeef,sp

        set_mem_limmed  0xbeef,0xdead,sp
        inc_gr_immed    -4,sp
        set_mem_limmed  0xdead,0xbeef,sp
        inc_gr_immed    -4,sp
        set_mem_limmed  0xdead,0xdead,sp
        inc_gr_immed    -4,sp
        set_mem_limmed  0xbeef,0xbeef,sp
        set_gr_immed    0,gr7
        set_fr_iimmed   0xbeef,0xdead,fr8
        set_fr_iimmed   0xdead,0xbeef,fr9
        set_fr_iimmed   0xdead,0xdead,fr10
        set_fr_iimmed   0xbeef,0xbeef,fr11
        stqf.p          fr8,@(sp,gr7)           ; parallel
        fnegs           fr8,fr8
        ldqf            @(sp,gr7),fr12
        test_mem_limmed 0xbeef,0xdead,sp        ; memory is set
        inc_gr_immed    4,sp
        test_mem_limmed 0xdead,0xbeef,sp
        inc_gr_immed    4,sp
        test_mem_limmed 0xdead,0xdead,sp
        inc_gr_immed    4,sp
        test_mem_limmed 0xbeef,0xbeef,sp
        test_fr_iimmed  0xbeefdead,fr12
        test_fr_iimmed  0xdeadbeef,fr13
        test_fr_iimmed  0xdeaddead,fr14
        test_fr_iimmed  0xbeefbeef,fr15

        pass