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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [s390/] [addr-constraints-1.c] - Rev 700

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

/* { dg-compile } */
/* { dg-options "-O2" } */
 
static inline unsigned long
lay_uw(unsigned long addr)
{
  unsigned long result;
 
  __asm__ ("lay    %[result],%a[addr]"
	   : [result] "=d" (result)
	   : [addr] "UW" (addr));
  return result;
}
 
static inline unsigned long
la_u(unsigned long addr)
{
  unsigned long result;
 
  __asm__ ("la    %[result],%a[addr]"
	   : [result] "=d" (result)
	   : [addr] "U" (addr));
  return result;
}
 
static inline unsigned long
lay_zqzrzszt(unsigned long addr)
{
  unsigned long result;
 
  __asm__ ("lay    %[result],%a[addr]"
	   : [result] "=d" (result)
	   : [addr] "ZQZRZSZT" (addr));
  return result;
}
 
static inline unsigned long
la_zqzr(unsigned long addr)
{
  unsigned long result;
 
  __asm__ ("la    %[result],%a[addr]"
	   : [result] "=d" (result)
	   : [addr] "ZQZR" (addr));
  return result;
}
 
 
extern unsigned long a[15];
 
int main(void)
{
  a[1] = lay_uw(3333);
  a[2] = lay_uw(4444);
  a[3] = lay_uw(1000000);
  a[4] = lay_uw(a[0]);
 
  a[5] = la_u(2222);
  a[6] = la_u(5555);
  a[7] = la_u(a[0]);
 
  a[8] = lay_zqzrzszt(3333);
  a[9] = lay_zqzrzszt(4444);
  a[10] = lay_zqzrzszt(1000000);
  a[11] = lay_zqzrzszt(a[0]);
 
  a[12] = la_zqzr(2222);
  a[13] = la_zqzr(5555);
  a[14] = la_zqzr(a[0]);
}
 

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.