OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [fmul.cgs] - Rev 157

Compare with Previous | Blame | View Log

# 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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.