URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 298 |
Rev 338 |
/* { dg-options "-O2" } */
|
/* { dg-options "-O2" } */
|
|
|
typedef struct test input ;
|
typedef struct test input ;
|
struct test
|
struct test
|
{
|
{
|
int type ;
|
int type ;
|
int symflag ;
|
int symflag ;
|
};
|
};
|
Chv_copyEntriesToVector ( input *chv,double *dvec)
|
Chv_copyEntriesToVector ( input *chv,double *dvec)
|
{
|
{
|
double *entries ;
|
double *entries ;
|
int mm, nent;
|
int mm, nent;
|
int first, i, k , stride ;
|
int first, i, k , stride ;
|
if ( ((chv)->type == 1) )
|
if ( ((chv)->type == 1) )
|
{
|
{
|
for ( i = 0 ; i < 10 ; i++)
|
for ( i = 0 ; i < 10 ; i++)
|
{
|
{
|
dvec[2*mm] = entries[2*k] ;
|
dvec[2*mm] = entries[2*k] ;
|
k += stride ;
|
k += stride ;
|
stride -= 2 ;
|
stride -= 2 ;
|
}
|
}
|
}
|
}
|
return(mm) ;
|
return(mm) ;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.