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/] [compact/] [fcnvsd.cgs] - Blame information for rev 157

Details | Compare with Previous | View Log


# sh testcase for fcnvsd -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
        fldi1 fr0
        flds fr0, fpul
        _setpr
        fcnvsd fpul, dr2
        _clrpr
 
        # Convert back.
        _setpr
        fcnvds dr2, fpul
        _clrpr
        fsts fpul, fr1
        fcmp/eq fr0, fr1
        bf wrong
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for fcnvsd -- Asm --`
2			`# mach: all`
3			`# as: -isa=shcompact`
4			`# ld: -m shelf32`
5
6			`.include "compact/testutils.inc"`
7
8			`start`
9			`fldi1 fr0`
10			`flds fr0, fpul`
11			`_setpr`
12			`fcnvsd fpul, dr2`
13			`_clrpr`
14
15			`# Convert back.`
16			`_setpr`
17			`fcnvds dr2, fpul`
18			`_clrpr`
19			`fsts fpul, fr1`
20			`fcmp/eq fr0, fr1`
21			`bf wrong`
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/] [compact/] [fcnvsd.cgs] - Blame information for rev 157