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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [getcon.cgs] - Blame information for rev 840

Details | Compare with Previous | View Log


# sh testcase for getcon $crk, $rd -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
init:
        pta wrong, tr0
 
getcon1:
        movi 22, r0
        putcon r0, cr0
        getcon cr0, r1
        bne r0, r1, tr0
 
getcon2:
        movi 12, r0
        shlli r0, 35, r0
        putcon r0, cr20
        getcon cr20, r20
        bne r0, r20, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for getcon $crk, $rd -- Asm --`
2			`# mach: all`
3			`# as: -isa=shmedia`
4			`# ld: -m shelf64`
5
6			`.include "media/testutils.inc"`
7
8			`start`
9			`init:`
10			`pta wrong, tr0`
11
12			`getcon1:`
13			`movi 22, r0`
14			`putcon r0, cr0`
15			`getcon cr0, r1`
16			`bne r0, r1, tr0`
17
18			`getcon2:`
19			`movi 12, r0`
20			`shlli r0, 35, r0`
21			`putcon r0, cr20`
22			`getcon cr20, r20`
23			`bne r0, r20, tr0`
24
25			`okay:`
26			`pass`
27
28			`wrong:`
29			`fail`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [getcon.cgs] - Blame information for rev 840