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/] [sh/] [fcnvsd.s] - 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 fcnvsd
2 
# mach: sh
3 
# as(sh):       -defsym sim_cpu=0
4 
 
5 
        .include "testutils.inc"
6 
 
7 
        start
8 
        set_grs_a5a5
9 
        set_fprs_a5a5
10 
        double_prec
11 
        fldi1   fr0
12 
        flds    fr0, fpul
13 
        fcnvsd  fpul, dr2
14 
        assert_dpreg_i  1, dr2
15 
 
16 
        # Convert back.
17 
        fcnvds  dr2, fpul
18 
        fsts    fpul, fr1
19 
        single_prec
20 
        assert_fpreg_i  1, fr1
21 
        fcmp/eq fr0, fr1
22 
        bt      .L0
23 
        fail
24 
.L0:
25 
        test_grs_a5a5
26 
        test_fpr_a5a5   fr4
27 
        test_fpr_a5a5   fr5
28 
        test_fpr_a5a5   fr6
29 
        test_fpr_a5a5   fr7
30 
        test_fpr_a5a5   fr8
31 
        test_fpr_a5a5   fr9
32 
        test_fpr_a5a5   fr10
33 
        test_fpr_a5a5   fr11
34 
        test_fpr_a5a5   fr12
35 
        test_fpr_a5a5   fr13
36 
        test_fpr_a5a5   fr14
37 
        test_fpr_a5a5   fr15
38 
        pass
39 
        exit 0
40 
 

powered by: WebSVN 2.1.0

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