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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [mips/] [sb1-1.c] - Rev 154

Compare with Previous | Blame | View Log

/* Test SB-1 v2sf extensions.  */
/* { dg-do compile } */ 
/* { dg-mips-options "-march=sb1 -O2 -mpaired-single -mhard-float -mgp64 -ffast-math" } */ 
/* { dg-final { scan-assembler "div.ps" } } */ 
/* { dg-final { scan-assembler "recip.ps" } } */ 
/* { dg-final { scan-assembler "sqrt.ps" } } */ 
/* { dg-final { scan-assembler "rsqrt.ps" } } */ 
 
typedef float v2sf __attribute__ ((vector_size (8)));
 
v2sf divide (v2sf a, v2sf b)
{
  return a / b;
}
 
v2sf recip (v2sf a)
{
  return ((v2sf) {1.0, 1.0}) / a;
}
 
v2sf squareroot (v2sf a)
{
  return __builtin_mips_sqrt_ps (a);
}
 
v2sf rsqrt (v2sf a)
{
  return ((v2sf) {1.0, 1.0}) / __builtin_mips_sqrt_ps (a);
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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