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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [subl.cgs] - Blame information for rev 157

Details | Compare with Previous | View Log


# sh testcase for sub.l $rm, $rn, $rd -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
 
init:
        pta wrong, tr0
 
subl1:
        # Test that the top 32 bits are ignored.
        movi 1, r0
        shlli r0, 32, r0
        ori r0, 7, r0
 
        movi 1, r1
        shlli r1, 32, r1
        ori r1, 2, r1
 
        sub.l r0, r1, r2
        bnei r2, 5, tr0
 
subl2:
        # Test that 0 - 1 is sign extended.
        movi 0, r0
        movi 1, r1
        sub.l r0, r1, r2
        addi r2, 1, r2
        bnei r2, 0, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for sub.l $rm, $rn, $rd -- Asm --`
2			`# mach: all`
3			`# as: -isa=shmedia`
4			`# ld: -m shelf64`
5
6			`.include "media/testutils.inc"`
7
8			`start`
9
10			`init:`
11			`pta wrong, tr0`
12
13			`subl1:`
14			`# Test that the top 32 bits are ignored.`
15			`movi 1, r0`
16			`shlli r0, 32, r0`
17			`ori r0, 7, r0`
18
19			`movi 1, r1`
20			`shlli r1, 32, r1`
21			`ori r1, 2, r1`
22
23			`sub.l r0, r1, r2`
24			`bnei r2, 5, tr0`
25
26			`subl2:`
27			`# Test that 0 - 1 is sign extended.`
28			`movi 0, r0`
29			`movi 1, r1`
30			`sub.l r0, r1, r2`
31			`addi r2, 1, r2`
32			`bnei r2, 0, tr0`
33
34			`okay:`
35			`pass`
36
37			`wrong:`
38			`fail`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [subl.cgs] - Blame information for rev 157