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

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


# sh testcase for fsqrt.s $frgh, $frf -*- Asm -*-
# mach: all
# as: -isa=shmedia
# ld: -m shelf64
 
        .include "media/testutils.inc"
 
        start
init:
        pta wrong, tr0
        movi 9, r0
        fmov.ls r0, fr7
        float.ls fr7, fr0
        movi 3, r1
        fmov.ls r1, fr7
        float.ls fr7, fr2
 
fsqrts:
        fsqrt.s fr0, fr1
        fcmpeq.s fr1, fr2, r7
        bnei r7, 1, tr0
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for fsqrt.s $frgh, $frf -- 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			`movi 9, r0`
12			`fmov.ls r0, fr7`
13			`float.ls fr7, fr0`
14			`movi 3, r1`
15			`fmov.ls r1, fr7`
16			`float.ls fr7, fr2`
17
18			`fsqrts:`
19			`fsqrt.s fr0, fr1`
20			`fcmpeq.s fr1, fr2, r7`
21			`bnei r7, 1, tr0`
22
23			`okay:`
24			`pass`
25
26			`wrong:`
27			`fail`

Browse

Tools

Subversion Repositories openrisc_me

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