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

Subversion Repositories scarts

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

Details | Compare with Previous | View Log


# sh testcase for muls.w $rm, $rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
 
        sts mach, r7
 
        .global mulsw
zero:
        mov #0, r0
        mov #1, r1
        muls.w r0, r1
 
        # Check the result.
        sts macl, r3
        mov #0, r4
        cmp/eq r3, r4
        bf wrong
 
sxs:
        # Small * small.
        mov #1, r0
        mov #2, r1
        muls.w r0, r1
 
        # Check the result.
        sts macl, r3
        mov #2, r4
        cmp/eq r3, r4
        bf wrong
 
sxl:
        # Small * large.
        mov #1, r0
        mov #255, r1
        shll8 r1
        muls.w r0, r1
 
        # Check the result.
        sts macl, r3
        mov #0, r4
        not r4, r4
        shll8 r4
        cmp/eq r3, r4
        bf wrong
 
lxs:
        # Large * small.
        mov #255, r0
        shll8 r0
        mov #1, r1
        muls.w r0, r1
 
        # Check the result.
        sts macl, r3
        mov #0, r4
        not r4, r4
        shll8 r4
        cmp/eq r3, r4
        bf wrong
 
lxl:
        # Large * large.
        mov #255, r0
        shll8 r0
        mov #255, r1
        shll8 r1
        muls.w r0, r1
 
        # Check the result.
        sts macl, r3
        mov #1, r4
        shll16 r4
        cmp/eq r3, r4
        bf wrong
 
invariant:
        # Ensure MACH is invariant.
        sts mach, r8
        cmp/eq r7, r8
        bf wrong
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	26	jlechner	`# sh testcase for muls.w $rm, $rn -- Asm --`
2			`# mach: all`
3			`# as: -isa=shcompact`
4			`# ld: -m shelf32`
5
6			`.include "compact/testutils.inc"`
7
8			`start`
9
10			`sts mach, r7`
11
12			`.global mulsw`
13			`zero:`
14			`mov #0, r0`
15			`mov #1, r1`
16			`muls.w r0, r1`
17
18			`# Check the result.`
19			`sts macl, r3`
20			`mov #0, r4`
21			`cmp/eq r3, r4`
22			`bf wrong`
23
24			`sxs:`
25			`# Small * small.`
26			`mov #1, r0`
27			`mov #2, r1`
28			`muls.w r0, r1`
29
30			`# Check the result.`
31			`sts macl, r3`
32			`mov #2, r4`
33			`cmp/eq r3, r4`
34			`bf wrong`
35
36			`sxl:`
37			`# Small * large.`
38			`mov #1, r0`
39			`mov #255, r1`
40			`shll8 r1`
41			`muls.w r0, r1`
42
43			`# Check the result.`
44			`sts macl, r3`
45			`mov #0, r4`
46			`not r4, r4`
47			`shll8 r4`
48			`cmp/eq r3, r4`
49			`bf wrong`
50
51			`lxs:`
52			`# Large * small.`
53			`mov #255, r0`
54			`shll8 r0`
55			`mov #1, r1`
56			`muls.w r0, r1`
57
58			`# Check the result.`
59			`sts macl, r3`
60			`mov #0, r4`
61			`not r4, r4`
62			`shll8 r4`
63			`cmp/eq r3, r4`
64			`bf wrong`
65
66			`lxl:`
67			`# Large * large.`
68			`mov #255, r0`
69			`shll8 r0`
70			`mov #255, r1`
71			`shll8 r1`
72			`muls.w r0, r1`
73
74			`# Check the result.`
75			`sts macl, r3`
76			`mov #1, r4`
77			`shll16 r4`
78			`cmp/eq r3, r4`
79			`bf wrong`
80
81			`invariant:`
82			`# Ensure MACH is invariant.`
83			`sts mach, r8`
84			`cmp/eq r7, r8`
85			`bf wrong`
86
87			`okay:`
88			`pass`
89
90			`wrong:`
91			`fail`

Browse

Tools

Subversion Repositories scarts

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