URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [991202-1.c] - Blame information for rev 801

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


extern float A[], B[];
extern float MAXNUMF;
float chbevlf(float, float *, int);
float expf(float), i1f(float), logf(float), sqrtf(float);
 
float k1f(float xx)
{
  float x, y;
 
  x = xx;
  if( x <= 2.0 )
    {
      y = x * x - 2.0;
      y =  logf( 0.5f * x ) * i1f(x)  +  chbevlf( y, A, 7 ) / x;
      return( y );
    }
  return(  expf(-x) * chbevlf( (float)(8.0/x - 2.0), B, 10 ) / sqrtf(x) );
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`extern float A[], B[];`
2			`extern float MAXNUMF;`
3			`float chbevlf(float, float *, int);`
4			`float expf(float), i1f(float), logf(float), sqrtf(float);`
5
6			`float k1f(float xx)`
7			`{`
8			`float x, y;`
9
10			`x = xx;`
11			`if( x <= 2.0 )`
12			`{`
13			`y = x * x - 2.0;`
14			`y = logf( 0.5f * x ) * i1f(x) + chbevlf( y, A, 7 ) / x;`
15			`return( y );`
16			`}`
17			`return( expf(-x) * chbevlf( (float)(8.0/x - 2.0), B, 10 ) / sqrtf(x) );`
18			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [991202-1.c] - Blame information for rev 801