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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.2/] [sim/] [testsuite/] [sim/] [sh64/] [media/] [fdivd.cgs] - Blame information for rev 373

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

Line No. Rev Author Line
1 330 jeremybenn
# sh testcase for fdiv.d $drg, $drh, $drf -*- 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
 
12
fdivd1:
13
        movi 1, r0
14
        fmov.qd r0, dr0
15
        float.qd dr0, dr0
16
        movi 2, r1
17
        fmov.qd r1, dr2
18
        float.qd dr2, dr2
19
        fdiv.d dr0, dr2, dr4
20
 
21
fdvid2:
22
        movi 6, r0
23
        fmov.qd r0, dr0
24
        float.qd dr0, dr0
25
        movi 2, r1
26
        fmov.qd r1, dr2
27
        float.qd dr2, dr2
28
        fdiv.d dr0, dr2, dr4
29
        movi 3, r3
30
        fmov.qd r3, dr6
31
        float.qd dr6, dr6
32
        fcmpeq.d dr4, dr6, r7
33
        bnei r7, 1, tr0
34
 
35
okay:
36
        pass
37
 
38
wrong:
39
        fail

powered by: WebSVN 2.1.0

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