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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [bf.c] - Blame information for rev 237

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


typedef unsigned long uint32;
typedef signed long sint32;
 
uint32
ext (sint32 src, unsigned o5, unsigned w5)
{
  return (w5 == 0) ? src >> o5 : (src << (( - o5 - w5) & 31)) >> (32 - w5);
}
 
uint32
extu (uint32 src, unsigned o5, unsigned w5)
{
  return (w5 == 0) ? src >> o5 : (src << (( - o5 - w5) & 31)) >> (32 - w5);
}
 
uint32
mak (uint32 src, unsigned o5, unsigned w5)
{
  return (w5 == 0) ? src << o5 : (src << (32 - w5)) >> (( - o5 - w5) & 31);
}
 
uint32
rot (uint32 src, unsigned o5)
{
  return (src >> o5) | (src << (( - o5) & 31));
}
 
main (int argc, char **argv)
{
  printf ("%x\n", clr (0xffffffff, atoi (argv[2]), atoi (argv[1])));
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`typedef unsigned long uint32;`
2			`typedef signed long sint32;`
3
4			`uint32`
5			`ext (sint32 src, unsigned o5, unsigned w5)`
6			`{`
7			`return (w5 == 0) ? src >> o5 : (src << (( - o5 - w5) & 31)) >> (32 - w5);`
8			`}`
9
10			`uint32`
11			`extu (uint32 src, unsigned o5, unsigned w5)`
12			`{`
13			`return (w5 == 0) ? src >> o5 : (src << (( - o5 - w5) & 31)) >> (32 - w5);`
14			`}`
15
16			`uint32`
17			`mak (uint32 src, unsigned o5, unsigned w5)`
18			`{`
19			`return (w5 == 0) ? src << o5 : (src << (32 - w5)) >> (( - o5 - w5) & 31);`
20			`}`
21
22			`uint32`
23			`rot (uint32 src, unsigned o5)`
24			`{`
25			`return (src >> o5) \| (src << (( - o5) & 31));`
26			`}`
27
28			`main (int argc, char **argv)`
29			`{`
30			`printf ("%x\n", clr (0xffffffff, atoi (argv[2]), atoi (argv[1])));`
31			`}`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [bf.c] - Blame information for rev 237