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/] [sb1-1.c] - Blame information for rev 378

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

Line No. Rev Author Line
1 321 jeremybenn 
/* Test SB-1 v2sf extensions.  */
2 
/* { dg-do compile } */
3 
/* { dg-options "-march=sb1 -O2 -mpaired-single -mgp64 -ffast-math" } */
4 
/* { dg-final { scan-assembler "div.ps" } } */
5 
/* { dg-final { scan-assembler "recip.ps" } } */
6 
/* { dg-final { scan-assembler "sqrt.ps" } } */
7 
/* { dg-final { scan-assembler "rsqrt.ps" } } */
8 
 
9 
typedef float v2sf __attribute__ ((vector_size (8)));
10 
 
11 
NOMIPS16 v2sf divide (v2sf a, v2sf b)
12 
{
13 
  return a / b;
14 
}
15 
 
16 
NOMIPS16 v2sf recip (v2sf a)
17 
{
18 
  return ((v2sf) {1.0, 1.0}) / a;
19 
}
20 
 
21 
NOMIPS16 v2sf squareroot (v2sf a)
22 
{
23 
  return __builtin_mips_sqrt_ps (a);
24 
}
25 
 
26 
NOMIPS16 v2sf rsqrt (v2sf a)
27 
{
28 
  return ((v2sf) {1.0, 1.0}) / __builtin_mips_sqrt_ps (a);
29 
}

powered by: WebSVN 2.1.0

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