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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [931102-2.c] - Blame information for rev 774

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


typedef union
{
  long align;
  struct
    {
      short h, l;
    } b;
} T;
 
f (x)
     int x;
{
  int num = 0;
  T reg;
 
  reg.b.l = x;
  while ((reg.b.l & 1) == 0)
    {
      num++;
      reg.b.l >>= 1;
    }
  return num;
}
 
main ()
{
  if (f (2) != 1)
    abort ();
  exit (0);
}
 

Line No.	Rev	Author	Line
1	688	jeremybenn	`typedef union`
2			`{`
3			`long align;`
4			`struct`
5			`{`
6			`short h, l;`
7			`} b;`
8			`} T;`
9
10			`f (x)`
11			`int x;`
12			`{`
13			`int num = 0;`
14			`T reg;`
15
16			`reg.b.l = x;`
17			`while ((reg.b.l & 1) == 0)`
18			`{`
19			`num++;`
20			`reg.b.l >>= 1;`
21			`}`
22			`return num;`
23			`}`
24
25			`main ()`
26			`{`
27			`if (f (2) != 1)`
28			`abort ();`
29			`exit (0);`
30			`}`
31

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [931102-2.c] - Blame information for rev 774