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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [maddl.cgs] - Blame information for rev 828

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


# sh testcase for madd.l $rm, $rn, $rd -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
 
init:
        pta wrong, tr0
 
maddl:
        # Load { 1 2 } into r0.
        _packl 1, 2, r0
        # Load { 3 4 } into r1.
        _packl 3, 4, r1
 
        # Add slices to produce { 4 6 }.
        madd.l r0, r1, r2
 
        _packl 4, 6, r3
        bne r2, r3, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	227	jeremybenn	`# sh testcase for madd.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			`maddl:`
14			`# Load { 1 2 } into r0.`
15			`_packl 1, 2, r0`
16			`# Load { 3 4 } into r1.`
17			`_packl 3, 4, r1`
18
19			`# Add slices to produce { 4 6 }.`
20			`madd.l r0, r1, r2`
21
22			`_packl 4, 6, r3`
23			`bne r2, r3, tr0`
24
25			`okay:`
26			`pass`
27
28			`wrong:`
29			`fail`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [maddl.cgs] - Blame information for rev 828