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

Subversion Repositories openrisc

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

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


/* The bit-field below would have a problem if __INT_MAX__ is too
   small.  */
#if __INT_MAX__ < 2147483647
int a;
#else
double g ();
typedef union {
  struct {
    unsigned s:1, e:8, f:23;
  } u;
  float f;
} s;
 
f(x, n)
     float x;
{
  ((s *)&x)->u.e -= n;
  x = g((double)x, -n);
}
#endif

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* The bit-field below would have a problem if __INT_MAX__ is too`
2			`small. */`
3			`#if __INT_MAX__ < 2147483647`
4			`int a;`
5			`#else`
6			`double g ();`
7			`typedef union {`
8			`struct {`
9			`unsigned s:1, e:8, f:23;`
10			`} u;`
11			`float f;`
12			`} s;`
13
14			`f(x, n)`
15			`float x;`
16			`{`
17			`((s *)&x)->u.e -= n;`
18			`x = g((double)x, -n);`
19			`}`
20			`#endif`

Browse

Tools

Subversion Repositories openrisc

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