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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [shlr.cgs] - Blame information for rev 26

Details | Compare with Previous | View Log


# sh testcase for shlr $rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
 
        .global shlr
shlr:
        mov #0, r0
        or #192, r0
        shlr r0
        shlr r0
        shlr r0
        shlr r0
        shlr r0
        shlr r0
        # Make sure a bit is shifted into T.
        shlr r0
        bf wrong
        # Ditto.
        shlr r0
        bf wrong
        shlr r0
        assert r0, #0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	26	jlechner	`# sh testcase for shlr $rn -- Asm --`
2			`# mach: all`
3			`# as: -isa=shcompact`
4			`# ld: -m shelf32`
5
6			`.include "compact/testutils.inc"`
7
8			`start`
9
10			`.global shlr`
11			`shlr:`
12			`mov #0, r0`
13			`or #192, r0`
14			`shlr r0`
15			`shlr r0`
16			`shlr r0`
17			`shlr r0`
18			`shlr r0`
19			`shlr r0`
20			`# Make sure a bit is shifted into T.`
21			`shlr r0`
22			`bf wrong`
23			`# Ditto.`
24			`shlr r0`
25			`bf wrong`
26			`shlr r0`
27			`assert r0, #0`
28
29			`okay:`
30			`pass`
31
32			`wrong:`
33			`fail`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [shlr.cgs] - Blame information for rev 26