URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [fipr.cgs] - Blame information for rev 26

Details | Compare with Previous | View Log


# sh testcase for fipr $fvm, $fvn
# mach: all
# as: -isa=shcompact
# ld: -m shelf32
 
        .include "compact/testutils.inc"
 
        start
initv1:
        fldi1 fr0
        # Load 2 into fr2.
        fldi1 fr1
        fadd fr1, fr1
        # Load 4 into fr2.
        fldi1 fr2
        fadd fr2, fr2
        fadd fr2, fr2
        fldi0 fr3
 
initv2:
        fldi1 fr8
        fldi0 fr9
        fldi1 fr10
        fldi0 fr11
 
        fipr fv0, fv8
 
        # Result will be in fr11.
        fldi1 fr0
        fldi1 fr1
        # Two.
        fadd fr1, fr0
        # Four.
        fadd fr0, fr0
        # Five.
        fadd fr1, fr0
        fcmp/eq fr0, fr11
        bf wrong
 
okay:
        pass
 
wrong:
        fail

Line No.	Rev	Author	Line
1	26	jlechner	`# 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`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [sim/] [testsuite/] [sim/] [sh64/] [compact/] [fipr.cgs] - Blame information for rev 26