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] - Blame information for rev 774

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

Line No.	Rev	Author	Line
1	689	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			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [debug/] [vta-2.c] - Blame information for rev 774