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

Subversion Repositories openrisc

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

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


extern double fabs (double);
extern double sqrt (double);
 
typedef struct complexm {
  double re,im;
} complex;
 
static complex
setCom (double r, double i)
{
  complex ct;
  ct.re=fabs(r)<1E-300?0.0:r;
  ct.im=fabs(i)<1E-300?0.0:i;
  return ct;
}
 
static complex
csqrt_crash (double x)
{
  return (x>=0) ? setCom(sqrt(x),0) : setCom(0,sqrt(-x));
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`extern double fabs (double);`
2			`extern double sqrt (double);`
3
4			`typedef struct complexm {`
5			`double re,im;`
6			`} complex;`
7
8			`static complex`
9			`setCom (double r, double i)`
10			`{`
11			`complex ct;`
12			`ct.re=fabs(r)<1E-300?0.0:r;`
13			`ct.im=fabs(i)<1E-300?0.0:i;`
14			`return ct;`
15			`}`
16
17			`static complex`
18			`csqrt_crash (double x)`
19			`{`
20			`return (x>=0) ? setCom(sqrt(x),0) : setCom(0,sqrt(-x));`
21			`}`

Browse

Tools

Subversion Repositories openrisc

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