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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# sh testcase for fabs.s $frgh, $frf -*- 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
        movi 0, r0
12
        movi 1, r1
13
 
14
fabs0:
15
        # Ensure fabs(-1) = 1.
16
        fmov.ls r0, fr7
17
        float.ls fr7, fr0
18
        fmov.ls r1, fr7
19
        float.ls fr7, fr1
20
        fsub.s fr0, fr1, fr2
21
        fabs.s fr2, fr3
22
        fcmpeq.s fr3, fr1, r7
23
        bnei r7, 1, tr0
24
 
25
fabs1:
26
        # Ensure fabs(1) = 1.
27
        fmov.ls r0, fr7
28
        float.ls fr7, fr0
29
        fmov.ls r1, fr7
30
        float.ls fr7, fr1
31
        fabs.s fr1, fr2
32
        fcmpeq.s fr1, fr2, 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.