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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.target/] [mips/] [mips-ps-2.c] - Blame information for rev 321

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 321 jeremybenn
/* { dg-do run } */
2
/* { dg-options "-O2 -mpaired-single" } */
3
 
4
/* Test MIPS paired-single builtin functions */
5
#include <stdlib.h>
6
#include <stdio.h>
7
 
8
typedef float v2sf __attribute__ ((vector_size(8)));
9
 
10
NOMIPS16 int main ()
11
{
12
  int little_endian;
13
  v2sf a, b, c, d;
14
  float e,f;
15
  int i;
16
 
17
  union { long long ll; int i[2]; } endianness_test;
18
  endianness_test.ll = 1;
19
  little_endian = endianness_test.i[0];
20
 
21
  /* pll.ps */
22
  a = (v2sf) {1, 2};
23
  b = (v2sf) {3, 4};
24
  c = __builtin_mips_pll_ps (a, b);
25
  if (little_endian) // little endian
26
    d = (v2sf) {3, 1};
27
  else // big endian
28
    d = (v2sf) {2, 4};
29
 
30
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
31
      !__builtin_mips_lower_c_eq_ps (c, d))
32
    abort ();
33
 
34
  /* pul.ps */
35
  a = (v2sf) {1, 2};
36
  b = (v2sf) {3, 4};
37
  c = __builtin_mips_pul_ps (a, b);
38
  if (little_endian) // little endian
39
    d = (v2sf) {3, 2};
40
  else // big endian
41
    d = (v2sf) {1, 4};
42
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
43
      !__builtin_mips_lower_c_eq_ps (c, d))
44
    abort ();
45
 
46
  /* plu.ps */
47
  a = (v2sf) {1, 2};
48
  b = (v2sf) {3, 4};
49
  c = __builtin_mips_plu_ps (a, b);
50
  if (little_endian) // little endian
51
    d = (v2sf) {4, 1};
52
  else // big endian
53
    d = (v2sf) {2, 3};
54
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
55
      !__builtin_mips_lower_c_eq_ps (c, d))
56
    abort ();
57
 
58
  /* puu.ps */
59
  a = (v2sf) {1, 2};
60
  b = (v2sf) {3, 4};
61
  c = __builtin_mips_puu_ps (a, b);
62
  if (little_endian) // little endian
63
    d = (v2sf) {4, 2};
64
  else // big endian
65
    d = (v2sf) {1, 3};
66
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
67
      !__builtin_mips_lower_c_eq_ps (c, d))
68
    abort ();
69
 
70
  /* cvt.ps.s */
71
  e = 3.4;
72
  f = 4.5;
73
  a = __builtin_mips_cvt_ps_s (e, f);
74
  if (little_endian) // little endian
75
    b = (v2sf) {4.5, 3.4};
76
  else // big endian
77
    b = (v2sf) {3.4, 4.5};
78
  if (!__builtin_mips_upper_c_eq_ps (a, b) ||
79
      !__builtin_mips_lower_c_eq_ps (a, b))
80
    abort ();
81
 
82
  /* cvt.s.pl */
83
  a = (v2sf) {35.1, 120.2};
84
  e = __builtin_mips_cvt_s_pl (a);
85
  if (little_endian) // little endian
86
    f = 35.1;
87
  else // big endian
88
    f = 120.2;
89
  if (e != f)
90
    abort ();
91
 
92
  /* cvt.s.pu */
93
  a = (v2sf) {30.0, 100.0};
94
  e = __builtin_mips_cvt_s_pu (a);
95
  if (little_endian) // little endian
96
    f = 100.0;
97
  else // big endian
98
    f = 30.0;
99
  if (e != f)
100
    abort ();
101
 
102
  /* abs.ps */
103
  a = (v2sf) {-3.4, -5.8};
104
  b = __builtin_mips_abs_ps (a);
105
  c = (v2sf) {3.4, 5.8};
106
  if (!__builtin_mips_upper_c_eq_ps (b, c) ||
107
      !__builtin_mips_lower_c_eq_ps (b, c))
108
    abort ();
109
 
110
  /* alnv.ps with rs = 4*/
111
  a = (v2sf) {1, 2};
112
  b = (v2sf) {3, 4};
113
  i = 4;
114
  c = __builtin_mips_alnv_ps (a, b, i);
115
  d = (v2sf) {2, 3};
116
 
117
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
118
      !__builtin_mips_lower_c_eq_ps (c, d))
119
    abort ();
120
 
121
  /* alnv.ps with rs = 0 */
122
  a = (v2sf) {5, 6};
123
  b = (v2sf) {7, 8};
124
  i = 0;
125
  c = __builtin_mips_alnv_ps (a, b, i);
126
  d = (v2sf) {5, 6};
127
 
128
  if (!__builtin_mips_upper_c_eq_ps (c, d) ||
129
      !__builtin_mips_lower_c_eq_ps (c, d))
130
    abort ();
131
 
132
  printf ("Test Passes\n");
133
  exit (0);
134
}

powered by: WebSVN 2.1.0

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