Subversion Repositories openrisc

/* { dg-options "-O2" } */
 
typedef struct test input ;
struct test 
{
  int type ;
  int symflag ;
};
Chv_copyEntriesToVector ( input *chv,double *dvec) 
{
  double *entries ;
  int mm, nent;
  int first, i, k , stride ;
  if ( ((chv)->type == 1) ) 
    {
      for ( i = 0 ; i < 10 ; i++)
        {
	  dvec[2*mm] = entries[2*k] ;
	  k += stride ;
	  stride -= 2 ;
        }
    }
  return(mm) ; 
}