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

Details | Compare with Previous | View Log


# sh testcase for fcmpgt -*- Asm -*-
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
 
        # 1.0 !> 1.0.
        fldi1 fr0
        fldi1 fr1
        fcmp/gt fr0, fr1
        bt wrong
 
        # 0.0 !> 1.0.
        fldi0 fr0
        fldi1 fr1
        fcmp/gt fr0, fr1
        bf wrong
 
        # 1.0 > 0.0.
        fldi1 fr0
        fldi0 fr1
        fcmp/gt fr0, fr1
        bt wrong
 
        # 2.0 > 1.0
        fldi1 fr0
        fadd fr0, fr0
        fldi1 fr1
        fcmp/gt fr0, fr1
        bt wrong
 
        bra double
        nop
 
wrong:
        fail
 
double:
        # double precision tests.
        # 1.0 !> 1.0.
        fldi1 fr0
        fldi1 fr2
        _s2d fr0, dr0
        _s2d fr2, dr2
        _setpr
        fcmp/gt dr0, dr2
        bt wrong2
        _clrpr
 
        # 0.0 !> 1.0.
        fldi0 fr0
        fldi1 fr2
        _s2d fr0, dr0
        _s2d fr2, dr2
        _setpr
        fcmp/gt dr0, dr2
        bf wrong2
        _clrpr
 
        bra next
        nop
 
wrong2:
        fail
 
next:
        # 1.0 > 0.0.
        fldi1 fr0
        fldi0 fr2
        _s2d fr0, dr0
        _s2d fr2, dr2
        _setpr
        fcmp/gt dr0, dr2
        bt wrong2
        _clrpr
 
        # 2.0 > 1.0.
        fldi1 fr0
        fadd fr0, fr0
        fldi1 fr2
        _s2d fr0, dr0
        _s2d fr2, dr2
        _setpr
        fcmp/gt dr0, dr2
        bt wrong2
        _clrpr
 
okay:
        pass
 
wrong3:
        fail

Line No.	Rev	Author	Line
1	24	jeremybenn	`# sh testcase for fcmpgt -- Asm --`
2			`# mach: all`
3			`# as: -isa=shcompact`
4			`# ld: -m shelf32`
5
6			`.include "compact/testutils.inc"`
7
8			`start`
9
10			`# 1.0 !> 1.0.`
11			`fldi1 fr0`
12			`fldi1 fr1`
13			`fcmp/gt fr0, fr1`
14			`bt wrong`
15
16			`# 0.0 !> 1.0.`
17			`fldi0 fr0`
18			`fldi1 fr1`
19			`fcmp/gt fr0, fr1`
20			`bf wrong`
21
22			`# 1.0 > 0.0.`
23			`fldi1 fr0`
24			`fldi0 fr1`
25			`fcmp/gt fr0, fr1`
26			`bt wrong`
27
28			`# 2.0 > 1.0`
29			`fldi1 fr0`
30			`fadd fr0, fr0`
31			`fldi1 fr1`
32			`fcmp/gt fr0, fr1`
33			`bt wrong`
34
35			`bra double`
36			`nop`
37
38			`wrong:`
39			`fail`
40
41			`double:`
42			`# double precision tests.`
43			`# 1.0 !> 1.0.`
44			`fldi1 fr0`
45			`fldi1 fr2`
46			`_s2d fr0, dr0`
47			`_s2d fr2, dr2`
48			`_setpr`
49			`fcmp/gt dr0, dr2`
50			`bt wrong2`
51			`_clrpr`
52
53			`# 0.0 !> 1.0.`
54			`fldi0 fr0`
55			`fldi1 fr2`
56			`_s2d fr0, dr0`
57			`_s2d fr2, dr2`
58			`_setpr`
59			`fcmp/gt dr0, dr2`
60			`bf wrong2`
61			`_clrpr`
62
63			`bra next`
64			`nop`
65
66			`wrong2:`
67			`fail`
68
69			`next:`
70			`# 1.0 > 0.0.`
71			`fldi1 fr0`
72			`fldi0 fr2`
73			`_s2d fr0, dr0`
74			`_s2d fr2, dr2`
75			`_setpr`
76			`fcmp/gt dr0, dr2`
77			`bt wrong2`
78			`_clrpr`
79
80			`# 2.0 > 1.0.`
81			`fldi1 fr0`
82			`fadd fr0, fr0`
83			`fldi1 fr2`
84			`_s2d fr0, dr0`
85			`_s2d fr2, dr2`
86			`_setpr`
87			`fcmp/gt dr0, dr2`
88			`bt wrong2`
89			`_clrpr`
90
91			`okay:`
92			`pass`
93
94			`wrong3:`
95			`fail`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [fcmpgt.cgs] - Blame information for rev 157