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/] [fadds.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.s $frg, $frh, $frf -*- Asm -*-
2
# mach: all
3
# as: -isa=shmedia
4
# ld: -m shelf64
5
 
6
        .include "media/testutils.inc"
7
 
8
        start
9
 
10
        .global fadds
11
init:
12
        pta wrong, tr0
13
        movi 2, r0
14
        movi 3, r1
15
 
16
fadd0:
17
        # Add 2 and 3.
18
        fmov.ls r0, fr7
19
        float.ls fr7, fr0
20
        fmov.ls r1, fr7
21
        float.ls fr7, fr1
22
        fadd.s fr0, fr1, fr2
23
        # Check to make sure we got 5.
24
        movi 5, r2
25
        fmov.ls r2, fr7
26
        float.ls fr7, fr3
27
        fcmpeq.s fr2, fr3, r7
28
        bnei r7, 1, tr0
29
 
30
okay:
31
        pass
32
 
33
wrong:
34
        fail

powered by: WebSVN 2.1.0

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