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/] [media/] [addl.cgs] - Rev 157

Compare with Previous | Blame | View Log

# sh testcase for add.l $rm, $rn, $rd -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64

        .include "media/testutils.inc"

        start

        .global addl
init:
        pta wrong, tr0

addl0:
        movi 1, r63
        add.l r63, r63, r1
        bnei r1, 0, tr0

addl1:
        movi 10, r0
        movi 0, r1
        add.l r0, r1, r3
        movi 10, r4
        bne r3, r4, tr0

addl2:
        movi 0, r0
        movi 10, r1
        add.l r0, r1, r2
        movi 10, r3
        bne r2, r3, tr0

addl3:
        movi 10, r0
        add.l r63, r0, r1
        movi 10, r2
        bne r1, r2, tr0

addl4:
        movi 10, r0
        add.l r0, r63, r1
        movi 10, r2
        bne r1, r2, tr0

addl5:
        # Ensure top 32-bits are discarded when adding.
        movi 10, r0
        shlli r0, 32, r0
        addi r0, 10, r0
        movi 10, r1
        shlli r1, 32, r1
        addi r1, 10, r1
        add.l r0, r1, r2
        movi 20, r3
        bne r2, r3, tr0
        
okay:   
        pass

wrong:
        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.