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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn 
# sh testcase for fcmpge.d $drg, $drh, $rd -*- Asm -*-
2 
# mach: all
3 
# as: -isa=shmedia
4 
# ld: -m shelf64
5 
 
6 
        .include "media/testutils.inc"
7 
 
8 
        start
9 
 
10 
init:
11 
        pta wrong, tr0
12 
 
13 
fcmpge1: # 2 = 2.
14 
        movi 2, r0
15 
        fmov.ls r0, fr0
16 
        fmov.ls r0, fr1
17 
        float.ld fr0, dr2
18 
        float.ld fr1, dr4
19 
        fcmpge.d dr2, dr4, r7
20 
        bnei r7, 1, tr0
21 
 
22 
fcmpge2: # 4 > 2.
23 
        movi 4, r0
24 
        fmov.ls r0, fr0
25 
        movi 2, r0
26 
        fmov.ls r0, fr1
27 
        float.ld fr0, dr2
28 
        float.ld fr1, dr4
29 
        fcmpge.d dr2, dr4, r7
30 
        bnei r7, 1, tr0
31 
 
32 
fcmpge3: # 2 < 4.
33 
        movi 2, r0
34 
        fmov.ls r0, fr0
35 
        movi 4, r0
36 
        fmov.ls r0, fr1
37 
        float.ld fr0, dr2
38 
        float.ld fr1, dr4
39 
        fcmpge.d dr2, dr4, r7
40 
        bnei r7, 0, tr0
41 
 
42 
okay:
43 
        pass
44 
 
45 
wrong:
46 
        fail

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.