Subversion Repositories openrisc

/* 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);
}