gcc/testsuite/gcc.dg/sibcall-6.c

   1 /* A simple check to see whether indirect calls are
   2    being sibcall optimized on targets that do support
   3    this notion, i.e. have the according call patterns
   4    in place.
   5
   6    Copyright (C) 2002 Free Software Foundation Inc.
   7    Contributed by Andreas Bauer <baueran@in.tum.de>  */
   8
   9 /* { dg-do run { target i?86-*-* s390*-*-* x86_64-*-*} } */
  10 /* { dg-skip-if "" { { i?86-*-* x86_64-*-* } && ilp32 } { "-fpic" "-fPIC" } { "" } } */
  11 /* { dg-options "-O2 -foptimize-sibling-calls" } */
  12
  13 extern void abort (void);
  14 extern void exit (int);
  15
  16 int foo (int);
  17 int bar (int);
  18
  19 int (*ptr) (int);
  20 int *f_addr;
  21
  22 int
  23 main ()
  24 {
  25   ptr = bar;
  26   foo (7);
  27   exit (0);
  28 }
  29
  30 int
  31 bar (b)
  32      int b;
  33 {
  34   if (f_addr == (int*) __builtin_return_address (0))
  35     return b;
  36   else
  37     abort ();
  38 }
  39
  40 int
  41 foo (f)
  42      int f;
  43 {
  44   f_addr = (int*) __builtin_return_address (0);
  45   return (*ptr)(f);
  46 }