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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [rotcl.cgs] - Rev 868

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

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

        .include "compact/testutils.inc"

        start

        .global rotcl

rotcl:
        clrt
        mov #1, r1
        rotcl r1
        assert r1, #2
        clrt
        rotcl r1
        assert r1, #4
        clrt
        rotcl r1
        assert r1, #8
        clrt
        rotcl r1
        assert r1, #16
        clrt
        rotcl r1
        assert r1, #32
        clrt
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        bf wrong
        rotcl r1
        assert r1, #1

        bra trotcl
        nop

wrong:
        fail

trotcl:
        sett
        mov #1, r1
        rotcl r1
        assert r1, #3
        clrt
        rotcl r1
        assert r1, #6
        clrt
        rotcl r1
        assert r1, #12
        clrt
        rotcl r1
        assert r1, #24
        clrt
        rotcl r1
        assert r1, #48
        clrt
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        rotcl r1
        bf wrong2
        assert r1, #1
        rotcl r1
        rotcl r1

okay:   
        pass
wrong2:
        fail

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