blob: 744bf46981c3a7e619c2fa442acf0739ef4298de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
/* 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 epiphany-*-* i?86-*-* x86_64-*-* s390*-*-* } } */
/* { dg-skip-if "" { { i?86-*-* x86_64-*-* } && { ia32 && { ! nonpic } } } { "*" } { "" } } */
/* { dg-options "-O2 -foptimize-sibling-calls -fno-ipa-cp" } */
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 __attribute__ ((noinline))
bar (b)
int b;
{
if (f_addr == (int*) __builtin_return_address (0))
return b;
else
abort ();
}
int __attribute__ ((noinline))
foo (f)
int f;
{
f_addr = (int*) __builtin_return_address (0);
return (*ptr)(f);
}
|
