URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gcc.dg/] [sibcall-6.c] - Rev 12
Compare with Previous | Blame | View Log
/* A simple check to see whether indirect calls are being sibcall optimized on targets that do support this notion, i.e. have the according call patterns in place. Copyright (C) 2002 Free Software Foundation Inc. Contributed by Andreas Bauer <baueran@in.tum.de> */ /* { dg-do run { target i?86-*-* s390*-*-* x86_64-*-*} } */ /* { dg-skip-if "" { { i?86-*-* x86_64-*-* } && ilp32 } { "-fpic" "-fPIC" } { "" } } */ /* { dg-options "-O2 -foptimize-sibling-calls" } */ extern void abort (void); extern void exit (int); int foo (int); int bar (int); int (*ptr) (int); int *f_addr; int main () { ptr = bar; foo (7); exit (0); } int bar (b) int b; { if (f_addr == (int*) __builtin_return_address (0)) return b; else abort (); } int foo (f) int f; { f_addr = (int*) __builtin_return_address (0); return (*ptr)(f); }