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/] [shlrdl.cgs] - Blame information for rev 280

Go to most recent revision | Details | Compare with Previous | View Log


# sh testcase for shlrd.l $rm, $rn, $rd -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
 
init:
        pta wrong, tr0
 
shlrdl1:
        movi 1, r0
        shlli r0, 32, r0
        ori r0, 8, r0
        movi 1, r1
        shlli r1, 7, r1
        ori r1, 3, r1
 
        shlrd.l r0, r1, r2
 
check1:
        bnei r2, 1, tr0
 
shlrdl2:
        movi 1, r0
        shlli r0, 31, r0
        movi 31, r1
        shlld.l r0, r1, r2
        bnei r2, 0, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for shlrd.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			`shlrdl1:`
14			`movi 1, r0`
15			`shlli r0, 32, r0`
16			`ori r0, 8, r0`
17			`movi 1, r1`
18			`shlli r1, 7, r1`
19			`ori r1, 3, r1`
20
21			`shlrd.l r0, r1, r2`
22
23			`check1:`
24			`bnei r2, 1, tr0`
25
26			`shlrdl2:`
27			`movi 1, r0`
28			`shlli r0, 31, r0`
29			`movi 31, r1`
30			`shlld.l r0, r1, r2`
31			`bnei r2, 0, tr0`
32
33			`okay:`
34			`pass`
35
36			`wrong:`
37			`fail`

Browse

Tools

Subversion Repositories openrisc_me

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