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/] [faddd.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 fadd.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
 
10
init:
11
        pta wrong, tr0
12
        movi 2, r0
13
        movi 3, r1
14
 
15
fadd0:
16
        # Add 2 and 3.
17
        fmov.ls r0, fr7
18
        float.ld fr7, dr0
19
        fmov.ls r1, fr7
20
        float.ld fr7, dr2
21
        fadd.d dr0, dr2, dr4
22
        # Check to make sure we got 5.
23
        movi 5, r2
24
        fmov.ls r2, fr7
25
        float.ld fr7, dr6
26
        fcmpeq.d dr4, dr6, r7
27
        bnei r7, 1, tr0
28
 
29
okay:
30
        pass
31
 
32
wrong:
33
        fail

powered by: WebSVN 2.1.0

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