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/] [rotl.cgs] - Rev 280

Go to most recent revision | 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

Go to most recent revision | Compare with Previous | Blame | View Log

Browse

Tools

Subversion Repositories openrisc_me

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