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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [debug/] [vta-2.c] - Blame information for rev 298

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 298 jeremybenn
/* { dg-do compile } */
2
 
3
static int
4
bar (void *a, unsigned int b, int n)
5
{
6
  int c = *(unsigned long *) a % b;
7
  *(unsigned long *) a = (int) (*(unsigned long *) a) / b;
8
  return c;
9
}
10
 
11
int
12
foo (unsigned long x, int *y, int z)
13
{
14
  int level;
15
  for (level = 0; level < *y; level++)
16
    {
17
      bar (&x, z, sizeof (x));
18
      if (x)
19
        return *y - 1;
20
    }
21
}

powered by: WebSVN 2.1.0

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