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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [bf.c] - Blame information for rev 688

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 688 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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.