URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 816 |
Rev 826 |
/* { dg-do compile } */
|
/* { dg-do compile } */
|
/* { dg-options "-O2 -std=gnu99" } */
|
/* { dg-options "-O2 -std=gnu99" } */
|
typedef _Complex float GFC_COMPLEX_4;
|
typedef _Complex float GFC_COMPLEX_4;
|
void product_c4 (GFC_COMPLEX_4 *src, GFC_COMPLEX_4 *dest, int len)
|
void product_c4 (GFC_COMPLEX_4 *src, GFC_COMPLEX_4 *dest, int len)
|
{
|
{
|
int n;
|
int n;
|
GFC_COMPLEX_4 result;
|
GFC_COMPLEX_4 result;
|
for (n = 0; n < len; n++, src += 1)
|
for (n = 0; n < len; n++, src += 1)
|
result *= *src;
|
result *= *src;
|
*dest = result;
|
*dest = result;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.