blob: f57f9c437815e1d59f33df45d6f3cb04da52820a (
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 i?86-*-* x86_64-*-* s390*-*-* } } */
/* { dg-skip-if "" { { i?86-*-* x86_64-*-* } && { ilp32 && 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);
}
|
