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

Subversion Repositories openrisc

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

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


# sh testcase for fsub.d $drg, $drh, $drf -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
 
        .global fsubd
init:
        pta wrong, tr0
 
fsubd:
        movi 9, r0
        fmov.qd r0, dr0
        float.qd dr0, dr0
 
        movi 3, r0
        fmov.qd r0, dr2
        float.qd dr2, dr2
 
        fsub.d dr0, dr2, dr4
 
        movi 6, r0
        fmov.qd r0, dr6
        float.qd dr6, dr6
 
        fcmpeq.d dr4, dr6, r7
        bnei r7, 1, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for fsub.d $drg, $drh, $drf -- Asm --`
2			`# mach: all`
3			`# as: -isa=shmedia`
4			`# ld: -m shelf64`
5
6			`.include "media/testutils.inc"`
7
8			`start`
9
10			`.global fsubd`
11			`init:`
12			`pta wrong, tr0`
13
14			`fsubd:`
15			`movi 9, r0`
16			`fmov.qd r0, dr0`
17			`float.qd dr0, dr0`
18
19			`movi 3, r0`
20			`fmov.qd r0, dr2`
21			`float.qd dr2, dr2`
22
23			`fsub.d dr0, dr2, dr4`
24
25			`movi 6, r0`
26			`fmov.qd r0, dr6`
27			`float.qd dr6, dr6`
28
29			`fcmpeq.d dr4, dr6, r7`
30			`bnei r7, 1, tr0`
31
32			`okay:`
33			`pass`
34
35			`wrong:`
36			`fail`

Browse

Tools

Subversion Repositories openrisc

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