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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [rotl.cgs] - Rev 227

Compare with Previous | Blame | View Log

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

        .include "compact/testutils.inc"

        start

        .global rotl
rotl:
        mov #1, r1
        rotl r1
        assert r1, #2
        rotl r1
        assert r1, #4
        rotl r1
        assert r1, #8
        rotl r1
        assert r1, #16
        rotl r1
        assert r1, #32
        rotl r1
        assert r1, #64
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        rotl r1
        bf wrong
        assert r1, #1
        rotl r1
        rotl r1
        rotl r1
        assert r1, #8

okay:   
        pass

wrong:
        fail

Compare with Previous | Blame | View Log

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [rotl.cgs] - Rev 227