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

Subversion Repositories openrisc

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

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

/* { dg-do compile } */
 
static int
bar (void *a, unsigned int b, int n)
{
  int c = *(unsigned long *) a % b;
  *(unsigned long *) a = (int) (*(unsigned long *) a) / b;
  return c;
}
 
int
foo (unsigned long x, int *y, int z)
{
  int level;
  for (level = 0; level < *y; level++)
    {
      bar (&x, z, sizeof (x));
      if (x)
	return *y - 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.