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

Subversion Repositories openrisc

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

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


   unsigned long bad(int reg, unsigned long inWord)
   {
       union {
           unsigned long word;
           unsigned char byte[4];
       } data;
 
       data.word = inWord;
       data.byte[reg] = 0;
 
       return data.word;
   }
 
main()
{
  /* XXX This test could be generalized.  */
  if (sizeof (long) != 4)
    exit (0);
 
  if (bad (0, 0xdeadbeef) == 0xdeadbeef)
    abort ();
  exit (0);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`unsigned long bad(int reg, unsigned long inWord)`
2			`{`
3			`union {`
4			`unsigned long word;`
5			`unsigned char byte[4];`
6			`} data;`
7
8			`data.word = inWord;`
9			`data.byte[reg] = 0;`
10
11			`return data.word;`
12			`}`
13
14			`main()`
15			`{`
16			`/* XXX This test could be generalized. */`
17			`if (sizeof (long) != 4)`
18			`exit (0);`
19
20			`if (bad (0, 0xdeadbeef) == 0xdeadbeef)`
21			`abort ();`
22			`exit (0);`
23			`}`

Browse

Tools

Subversion Repositories openrisc

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