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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr40501.c] - Rev 774

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

/* { dg-do compile { target alpha*-*-* ia64*-*-* x86_64-*-* s390x-*-* } } */
/* { dg-options "-O2" } */
/* { dg-require-effective-target lp64 } */
 
/* PR middle-end/40501 */
 
/* This once failed due to the bswap pass missing to add the type
   casts of the signed argument and result to the proper unsigned
   types.  */
 
typedef long int int64_t;
 
int64_t
swap64 (int64_t n)
{
  return (((n & (((int64_t) 0xff) )) << 56) |
	  ((n & (((int64_t) 0xff) << 8)) << 40) |
	  ((n & (((int64_t) 0xff) << 16)) << 24) |
	  ((n & (((int64_t) 0xff) << 24)) << 8) |
	  ((n & (((int64_t) 0xff) << 32)) >> 8) |
	  ((n & (((int64_t) 0xff) << 40)) >> 24) |
	  ((n & (((int64_t) 0xff) << 48)) >> 40) |
	  ((n & (((int64_t) 0xff) << 56)) >> 56));
}
 

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.