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

Subversion Repositories scarts

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

Details | Compare with Previous | View Log


# sh testcase for sts.l pr, @-$rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
 
        .global stsl_pr
stsl_pr:
        # Build up a distinctive bit pattern.
        mov #1, r0
        shll8 r0
        add #12, r0
        shll8 r0
        add #85, r0
        shll8 r0
        add #170, r0
 
        lds r0, pr
        mov #40, r2
        shll8 r2
        # Preserve r2.
        mov r2, r7
        sts.l pr, @-r2
 
        # check results.
        mov.l @r2, r3
        cmp/eq r0, r3
        bf wrong
 
        # Ensure decrement occurred.
        add #4, r2
        cmp/eq r2, r7
        bf wrong
 
okay:
        pass
wrong:
        fail
 

Line No.	Rev	Author	Line
1	26	jlechner	`# sh testcase for sts.l pr, @-$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 stsl_pr`
11			`stsl_pr:`
12			`# Build up a distinctive bit pattern.`
13			`mov #1, r0`
14			`shll8 r0`
15			`add #12, r0`
16			`shll8 r0`
17			`add #85, r0`
18			`shll8 r0`
19			`add #170, r0`
20
21			`lds r0, pr`
22			`mov #40, r2`
23			`shll8 r2`
24			`# Preserve r2.`
25			`mov r2, r7`
26			`sts.l pr, @-r2`
27
28			`# check results.`
29			`mov.l @r2, r3`
30			`cmp/eq r0, r3`
31			`bf wrong`
32
33			`# Ensure decrement occurred.`
34			`add #4, r2`
35			`cmp/eq r2, r7`
36			`bf wrong`
37
38			`okay:`
39			`pass`
40			`wrong:`
41			`fail`
42

Browse

Tools

Subversion Repositories scarts

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