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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [comp-goto-2.c] - Blame information for rev 825

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


/* A slight variation of 920501-7.c.  */
 
#ifdef STACK_SIZE
#define DEPTH ((STACK_SIZE) / 512 + 1)
#else
#define DEPTH 1000
#endif
 
#if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES)
x(a)
{
  __label__ xlab;
  void y(a)
    {
      void *x = &&llab;
      if (a==-1)
        goto *x;
      if (a==0)
        goto xlab;
    llab:
      y (a-1);
    }
  y (a);
 xlab:;
  return a;
}
#endif
 
main ()
{
#if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES)
  if (x (DEPTH) != DEPTH)
    abort ();
#endif
  exit (0);
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* A slight variation of 920501-7.c. */`
2
3			`#ifdef STACK_SIZE`
4			`#define DEPTH ((STACK_SIZE) / 512 + 1)`
5			`#else`
6			`#define DEPTH 1000`
7			`#endif`
8
9			`#if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES)`
10			`x(a)`
11			`{`
12			`__label__ xlab;`
13			`void y(a)`
14			`{`
15			`void *x = &&llab;`
16			`if (a==-1)`
17			`goto *x;`
18			`if (a==0)`
19			`goto xlab;`
20			`llab:`
21			`y (a-1);`
22			`}`
23			`y (a);`
24			`xlab:;`
25			`return a;`
26			`}`
27			`#endif`
28
29			`main ()`
30			`{`
31			`#if ! defined (NO_LABEL_VALUES) && !defined (NO_TRAMPOLINES)`
32			`if (x (DEPTH) != DEPTH)`
33			`abort ();`
34			`#endif`
35			`exit (0);`
36			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [comp-goto-2.c] - Blame information for rev 825