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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [fipr.cgs] - Blame information for rev 157

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 24 jeremybenn
# sh testcase for fipr $fvm, $fvn
2
# mach: all
3
# as: -isa=shcompact
4
# ld: -m shelf32
5
 
6
        .include "compact/testutils.inc"
7
 
8
        start
9
initv1:
10
        fldi1 fr0
11
        # Load 2 into fr2.
12
        fldi1 fr1
13
        fadd fr1, fr1
14
        # Load 4 into fr2.
15
        fldi1 fr2
16
        fadd fr2, fr2
17
        fadd fr2, fr2
18
        fldi0 fr3
19
 
20
initv2:
21
        fldi1 fr8
22
        fldi0 fr9
23
        fldi1 fr10
24
        fldi0 fr11
25
 
26
        fipr fv0, fv8
27
 
28
        # Result will be in fr11.
29
        fldi1 fr0
30
        fldi1 fr1
31
        # Two.
32
        fadd fr1, fr0
33
        # Four.
34
        fadd fr0, fr0
35
        # Five.
36
        fadd fr1, fr0
37
        fcmp/eq fr0, fr11
38
        bf wrong
39
 
40
okay:
41
        pass
42
 
43
wrong:
44
        fail

powered by: WebSVN 2.1.0

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