Subversion Repositories scarts

# sh testcase for ftrv xmtrx, $fvn -*- Asm -*-

# mach: all

# as: -isa=shcompact

# ld: -m shelf32

        .include "compact/testutils.inc"

        # set the fr bit in the fpscr

        .macro _setfr

        sts fpscr, r7

        mov #32, r8

        shll16 r8

        or r8, r7

        lds r7, fpscr

        .endm

        # clear the fr bit

        .macro _clrfr

        sts fpscr, r7

        mov #32, r8

        shll16 r8

        not r8, r8

        and r8, r7

        lds r7, fpscr

        .endm

        .macro incr old new

        fldi1 \new

        fadd \old, \new

        .endm

        start

        _setfr

popmtrx:

        # 1.0.

        fldi1 fr0

        # 2.0.

        fldi1 fr1

        fadd fr1, fr1

        incr fr1, fr2

        incr fr2, fr3

        incr fr3, fr4

        incr fr4, fr5

        incr fr5, fr6

        incr fr6, fr7

        incr fr7, fr8

        incr fr8, fr9

        incr fr9, fr10

        incr fr10, fr11

        incr fr11, fr12

        incr fr12, fr13

        incr fr13, fr14

        incr fr14, fr15

popvect:

        # Swtich fp banks.

        _clrfr

        fldi1 fr4

        fldi1 fr5

        fadd fr5, fr5

        fldi1 fr6

        fadd fr5, fr6

        fldi1 fr7

        fadd fr6, fr7

ftrv:

        # fr[4,7] should contain the results:

        # { 30, 70, 110, 150 }.

        ftrv xmtrx, fv4

okay:

        pass