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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gdb-7.1/] [sim/] [testsuite/] [sim/] [mips/] [fpu64-ps-sb1.s] - Blame information for rev 238

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 227 jeremybenn
# mips test sanity, expected to pass.
2
# mach:  sb1
3
# as:           -mabi=eabi
4
# ld:           -N -Ttext=0x80010000
5
# output:       *\\npass\\n
6
 
7
        .include "testutils.inc"
8
 
9
        .macro check_ps psval, upperval, lowerval
10
        .set push
11
        .set noreorder
12
        cvt.s.pu        $f0, \psval             # upper
13
        cvt.s.pl        $f2, \psval             # lower
14
        li.s            $f4, \upperval
15
        li.s            $f6, \lowerval
16
        c.eq.s          $fcc0, $f0, $f4
17
        bc1f            $fcc0, _fail
18
         c.eq.s         $fcc0, $f2, $f6
19
        bc1f            $fcc0, _fail
20
         nop
21
        .set pop
22
        .endm
23
 
24
        setup
25
 
26
        .set noreorder
27
 
28
        .ent DIAG
29
DIAG:
30
 
31
        # make sure that Status.FR, .CU1, and .SBX are set.
32
        mfc0    $2, $12
33
        or      $2, $2, (1 << 26) | (1 << 29) | (1 << 16)
34
        mtc0    $2, $12
35
 
36
 
37
        li.s    $f10, 4.0
38
        li.s    $f12, 16.0
39
        cvt.ps.s $f20, $f10, $f12               # $f20: u=4.0, l=16.0
40
 
41
        li.s    $f10, -1.0
42
        li.s    $f12, 2.0
43
        cvt.ps.s $f22, $f10, $f12               # $f22: u=-1.0, l=2.0
44
 
45
 
46
        writemsg "div.ps"
47
 
48
        div.ps $f8, $f20, $f22
49
        check_ps $f8, -4.0, 8.0
50
 
51
 
52
        writemsg "recip.ps"
53
 
54
        recip.ps $f8, $f20
55
        check_ps $f8, 0.25, 0.0625
56
 
57
 
58
        writemsg "rsqrt.ps"
59
 
60
        rsqrt.ps $f8, $f20
61
        check_ps $f8, 0.5, 0.25
62
 
63
 
64
        writemsg "sqrt.ps"
65
 
66
        sqrt.ps $f8, $f20
67
        check_ps $f8, 2.0, 4.0
68
 
69
 
70
        pass
71
 
72
        .end DIAG

powered by: WebSVN 2.1.0

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