Subversion Repositories scarts

# sh testcase for ftrv.s $mtrxg, $fvh, $fvf -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64

        .include "media/testutils.inc"

        .macro _load val, fpreg
        # This macro clobbers r0.
        movi \val, r0
        fmov.ls r0, \fpreg 
        float.ls \fpreg, \fpreg
        .endm

        start

init:
        pta wrong, tr0

        _load 1,  fr0
        _load 2,  fr4
        _load 3,  fr8
        _load 4,  fr12
        _load 5,  fr1
        _load 6,  fr5
        _load 7,  fr9
        _load 8,  fr13
        _load 9,  fr2
        _load 10, fr6
        _load 11, fr10
        _load 12, fr14
        _load 13, fr3
        _load 14, fr7
        _load 15, fr11
        _load 16, fr15

        _load 1, fr16
        _load 2, fr17
        _load 3, fr18
        _load 4, fr19

ftrvs:
        ftrv.s mtrx0, fv16, fv20

check:
        _load 30, fr0
        _load 70, fr1
        _load 110, fr2
        _load 150, fr3

        fcmpeq.s fr0, fr20, r0
        bnei r0, 1, tr0
        
        fcmpeq.s fr1, fr21, r0
        bnei r0, 1, tr0

        fcmpeq.s fr2, fr22, r0
        bnei r0, 1, tr0

        fcmpeq.s fr3, fr23, r0
        bnei r0, 1, tr0
        
okay:
        pass

wrong:
        fail