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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [bf.c] - Rev 519

Go to most recent revision | Compare with Previous | Blame | 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])));
}
 

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

powered by: WebSVN 2.1.0

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