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

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


# sh testcase for xtrct $rm, $rn -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
 
init:
        mov #170, r0
        shll8 r0
        add #1, r0
        shll8 r0
        add #66, r0
        shll8 r0
        mov r0, r1
 
        mov #85, r0
        shll8 r0
        add #2, r0
        shll8 r0
        add #42, r0
        shll8 r0
        add #3, r0
 
copy:
        mov r0, r3
        mov r1, r4
 
xtrct:
        xtrct r0, r1
 
check:
        # Lower r3, upper r4.
        shll16 r3
        shlr16 r4
        or r3, r4
        cmp/eq r1, r4
        bf wrong
 
okay:
        pass
wrong:
        fail
 

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for xtrct $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			`init:`
11			`mov #170, r0`
12			`shll8 r0`
13			`add #1, r0`
14			`shll8 r0`
15			`add #66, r0`
16			`shll8 r0`
17			`mov r0, r1`
18
19			`mov #85, r0`
20			`shll8 r0`
21			`add #2, r0`
22			`shll8 r0`
23			`add #42, r0`
24			`shll8 r0`
25			`add #3, r0`
26
27			`copy:`
28			`mov r0, r3`
29			`mov r1, r4`
30
31			`xtrct:`
32			`xtrct r0, r1`
33
34			`check:`
35			`# Lower r3, upper r4.`
36			`shll16 r3`
37			`shlr16 r4`
38			`or r3, r4`
39			`cmp/eq r1, r4`
40			`bf wrong`
41
42			`okay:`
43			`pass`
44			`wrong:`
45			`fail`
46

Browse

Tools

Subversion Repositories openrisc_me

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