Subversion Repositories scarts

# sh testcase for fmul -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32

        .include "compact/testutils.inc"

        .macro init
        fldi0 fr0
        fldi1 fr1
        fldi1 fr2
        fadd fr2, fr2
        fldi0 fr7
        fldi1 fr8
        .endm

        start

        # 0.0 * 0.0 = 0.0.
        init
        fmul fr0, fr0
        fcmp/eq fr7, fr0
        bf wrong

        # 0.0 * 1.0 = 0.0.
        init
        fmul fr1, fr0
        fcmp/eq fr7, fr0
        bf wrong

        # 1.0 * 0.0 = 0.0.
        init
        fmul fr0, fr1
        fcmp/eq fr7, fr1
        bf wrong

        # 1.0 * 1.0 = 1.0.
        init
        fmul fr1, fr1
        fcmp/eq fr8, fr1
        bf wrong

        # 2.0 * 1.0 = 2.0.
        init
        fmul fr2, fr1
        fcmp/eq fr2, fr1
        bf wrong

        bra double
        nop

wrong:
        fail
        
        .macro dinit
        fldi0 fr0
        fldi1 fr2
        fldi1 fr4
        fadd fr4, fr4
        fldi0 fr8
        fldi1 fr10
        _s2d fr0, dr0
        _s2d fr2, dr2
        _s2d fr4, dr4
        _s2d fr8, dr8
        _s2d fr10, dr10
        .endm
        
double:
        # 0.0 * 0.0 = 0.0.
        dinit
        _setpr
        fmul dr0, dr0
        fcmp/eq dr8, dr0
        bf wrong
        _clrpr

        # 0.0 * 1.0 = 0.0.
        dinit
        _setpr
        fmul dr2, dr0
        fcmp/eq dr8, dr0
        bf wrong2
        _clrpr

        # 1.0 * 0.0 = 0.0.
        dinit
        _setpr
        fmul dr0, dr2
        fcmp/eq dr8, dr2
        bf wrong2
        _clrpr

        bra next
        nop

wrong2:
        fail

next:
        # 1.0 * 1.0 = 1.0.
        dinit
        _setpr
        fmul dr2, dr2
        fcmp/eq dr10, dr2
        bf wrong3
        _clrpr

        # 2.0 * 1.0 = 2.0.
        dinit
        _setpr
        fmul dr4, dr2
        fcmp/eq dr4, dr2
        bf wrong3
        _clrpr

okay:
        pass

wrong3: 
        fail