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/] [sibcall-2.c] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
/* Simple check that sibling calls are performed from a void non-leaf-function taking no arguments calling itself. Copyright (C) 2002 Free Software Foundation Inc. Contributed by Hans-Peter Nilsson <hp@bitrange.com> */ /* { dg-do run } */ /* { dg-options "-O2 -foptimize-sibling-calls" } */ /* The option -foptimize-sibling-calls is the default, but serves as marker. Self-recursion tail calls are optimized for all targets, regardless of presence of sibcall patterns. */ extern void abort (void); extern void exit (int); extern void recurser_void (void); extern void track (void); int n = 0; int main () { recurser_void (); exit (0); } void recurser_void (void) { if (n == 0 || n == 7) track (); if (n == 10) return; n++; recurser_void (); } void *trackpoint; void __attribute__ ((noinline)) track () { char stackpos[1]; if (n == 0) trackpoint = stackpos; else if (n != 7 || trackpoint != stackpos) abort (); }
Go to most recent revision | Compare with Previous | Blame | View Log