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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [mips/] [mips-ps-type-2.c] - Blame information for rev 724

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

Line No. Rev Author Line
1 691 jeremybenn 
/* Test v2sf calculations.  The nmadd and nmsub patterns need
2 
   -ffinite-math-only.  */
3 
/* { dg-do compile } */
4 
/* { dg-options "isa_rev>=2 -mgp32 -O2 -mpaired-single -ffinite-math-only" } */
5 
/* { dg-final { scan-assembler "cvt.ps.s" } } */
6 
/* { dg-final { scan-assembler "mov.ps" } } */
7 
/* { dg-final { scan-assembler "ldc1" } } */
8 
/* { dg-final { scan-assembler "sdc1" } } */
9 
/* { dg-final { scan-assembler "add.ps" } } */
10 
/* { dg-final { scan-assembler "sub.ps" } } */
11 
/* { dg-final { scan-assembler "neg.ps" } } */
12 
/* { dg-final { scan-assembler "mul.ps" } } */
13 
/* { dg-final { scan-assembler "madd.ps" } } */
14 
/* { dg-final { scan-assembler "msub.ps" } } */
15 
/* { dg-final { scan-assembler "nmadd.ps" } } */
16 
/* { dg-final { scan-assembler "nmsub.ps" } } */
17 
/* { dg-final { scan-assembler "movn.ps" } } */
18 
/* { dg-final { scan-assembler "movz.ps" } } */
19 
 
20 
typedef float v2sf __attribute__ ((vector_size(8)));
21 
void gobble (v2sf);
22 
 
23 
v2sf A = {100, 200};
24 
 
25 
/* Init from  floats */
26 
NOMIPS16 v2sf init (float a, float b)
27 
{
28 
  return (v2sf) {a, b};
29 
}
30 
 
31 
/* Move between registers */
32 
NOMIPS16 v2sf move (v2sf a)
33 
{
34 
  return a;
35 
}
36 
 
37 
/* Load from memory */
38 
NOMIPS16 v2sf load ()
39 
{
40 
  return A;
41 
}
42 
 
43 
/* Store to memory */
44 
NOMIPS16 void store (v2sf a)
45 
{
46 
  A = a;
47 
}
48 
 
49 
/* Add */
50 
NOMIPS16 v2sf add (v2sf a, v2sf b)
51 
{
52 
  return a + b;
53 
}
54 
 
55 
/* Subtract */
56 
NOMIPS16 v2sf sub (v2sf a, v2sf b)
57 
{
58 
  return a - b;
59 
}
60 
 
61 
/* Negate */
62 
NOMIPS16 v2sf neg (v2sf a)
63 
{
64 
  return - a;
65 
}
66 
 
67 
/* Multiply */
68 
NOMIPS16 v2sf mul (v2sf a, v2sf b)
69 
{
70 
  return a * b;
71 
}
72 
 
73 
/* Multiply and add */
74 
NOMIPS16 v2sf madd (v2sf a, v2sf b, v2sf c)
75 
{
76 
  return a * b + c;
77 
}
78 
 
79 
/* Multiply and subtract */
80 
NOMIPS16 v2sf msub (v2sf a, v2sf b, v2sf c)
81 
{
82 
  return a * b - c;
83 
}
84 
 
85 
/* Negate Multiply and add */
86 
NOMIPS16 v2sf nmadd (v2sf a, v2sf b, v2sf c)
87 
{
88 
  return - (a * b + c);
89 
}
90 
 
91 
/* Negate Multiply and subtract */
92 
NOMIPS16 v2sf nmsub (v2sf a, v2sf b, v2sf c)
93 
{
94 
  return - (a * b - c);
95 
}
96 
 
97 
/* Conditional Move */
98 
NOMIPS16 v2sf cond_move1 (v2sf a, v2sf b, int i)
99 
{
100 
  if (i == 0)
101 
    a = b;
102 
  gobble (a);
103 
}
104 
 
105 
/* Conditional Move */
106 
NOMIPS16 v2sf cond_move2 (v2sf a, v2sf b, int i)
107 
{
108 
  if (i != 0)
109 
    a = b;
110 
  gobble (a);
111 
}

powered by: WebSVN 2.1.0

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