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

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


# sh testcase for ftrc.dl $drgh, $frf -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
 
        .global ftrcdl
init:
        pta wrong, tr0
 
ftrcdl:
        movi -9, r0
        fmov.qd r0, dr0
        float.qd dr0, dr0
        ftrc.dl dr0, fr0
        fmov.sl fr0, r1
        bne r0, r1, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for ftrc.dl $drgh, $frf -- Asm --`
2			`# mach: all`
3			`# as: -isa=shmedia`
4			`# ld: -m shelf64`
5
6			`.include "media/testutils.inc"`
7
8			`start`
9
10			`.global ftrcdl`
11			`init:`
12			`pta wrong, tr0`
13
14			`ftrcdl:`
15			`movi -9, r0`
16			`fmov.qd r0, dr0`
17			`float.qd dr0, dr0`
18			`ftrc.dl dr0, fr0`
19			`fmov.sl fr0, r1`
20			`bne r0, r1, tr0`
21
22			`okay:`
23			`pass`
24
25			`wrong:`
26			`fail`

Browse

Tools

Subversion Repositories openrisc_me

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