Subversion Repositories openrisc_2011-10-31

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

}