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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [rotl.cgs] - Rev 26

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 scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [rotl.cgs] - Rev 26