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

Subversion Repositories scarts

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

Details | Compare with Previous | View Log


# sh testcase for mac.l @${rm}+, @${rn}+
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
        # force S-bit clear
        clrs
 
        # Store some magic numbers in memory.
        mov #40, r1
        shll8 r1
        mov #85, r0
        mov.l r0, @r1
        # Keep for later.
        mov r1, r10
store2:
        mov #40, r1
        shll8 r1
        add #12, r1
        mov #17, r0
        mov.l r0, @r1
        # Keep for later.
        mov r1, r11
 
init:
        # Set up addresses.
        mov #40, r1
        shll8 r1
        mov #40, r2
        shll8 r2
        add #12, r2
 
        # Prime {MACL, MACH} to #1.
        mov #1, r3
        dmulu.l r3, r3
 
test:
        mac.l @r1+, @r2+
 
check:
        # Check result.
        sts mach, r5
        assert r5, #0
 
        mov #5, r0
        shll8 r0
        or #166, r0
        sts macl, r6
        cmp/eq r6, r0
        bf wrong
 
        # Ensure post-increment occurred.
        add #4, r10
        cmp/eq r10, r1
        bf wrong
 
        add #4, r11
        cmp/eq r11, r2
        bf wrong
 
doubleinc:
        mov #40, r0
        shll8 r0
        mov r0, r1
        mac.l @r0+, @r0+
        add #16, r1
        cmp/eq r0, r1
        bf wrong
 
okay:
        pass
wrong:
        fail

Line No.	Rev	Author	Line
1	26	jlechner	`# sh testcase for mac.l @${rm}+, @${rn}+`
2			`# mach: all`
3			`# as: -isa=shcompact`
4			`# ld: -m shelf32`
5
6			`.include "compact/testutils.inc"`
7
8			`start`
9			`# force S-bit clear`
10			`clrs`
11
12			`# Store some magic numbers in memory.`
13			`mov #40, r1`
14			`shll8 r1`
15			`mov #85, r0`
16			`mov.l r0, @r1`
17			`# Keep for later.`
18			`mov r1, r10`
19			`store2:`
20			`mov #40, r1`
21			`shll8 r1`
22			`add #12, r1`
23			`mov #17, r0`
24			`mov.l r0, @r1`
25			`# Keep for later.`
26			`mov r1, r11`
27
28			`init:`
29			`# Set up addresses.`
30			`mov #40, r1`
31			`shll8 r1`
32			`mov #40, r2`
33			`shll8 r2`
34			`add #12, r2`
35
36			`# Prime {MACL, MACH} to #1.`
37			`mov #1, r3`
38			`dmulu.l r3, r3`
39
40			`test:`
41			`mac.l @r1+, @r2+`
42
43			`check:`
44			`# Check result.`
45			`sts mach, r5`
46			`assert r5, #0`
47
48			`mov #5, r0`
49			`shll8 r0`
50			`or #166, r0`
51			`sts macl, r6`
52			`cmp/eq r6, r0`
53			`bf wrong`
54
55			`# Ensure post-increment occurred.`
56			`add #4, r10`
57			`cmp/eq r10, r1`
58			`bf wrong`
59
60			`add #4, r11`
61			`cmp/eq r11, r2`
62			`bf wrong`
63
64			`doubleinc:`
65			`mov #40, r0`
66			`shll8 r0`
67			`mov r0, r1`
68			`mac.l @r0+, @r0+`
69			`add #16, r1`
70			`cmp/eq r0, r1`
71			`bf wrong`
72
73			`okay:`
74			`pass`
75			`wrong:`
76			`fail`

Browse

Tools

Subversion Repositories scarts

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