URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gcc.target/] [s390/] [frame-addr2.c] - Rev 324
Go to most recent revision | Compare with Previous | Blame | View Log
/* builtin_frame_address(n) with n>0 has always been troublesome. */ /* { dg-do run } */ /* { dg-options "-O3 -fno-optimize-sibling-calls -mbackchain" } */ #ifdef __s390x__ #define SAVE_AREA_SIZE 160 #else #define SAVE_AREA_SIZE 96 #endif extern void abort(void); #define EXPAND_CHECK(n) \ void __attribute__((noinline)) \ foo1_##n (void *p) \ { \ if (p - __builtin_frame_address (n) != SAVE_AREA_SIZE) \ abort (); \ } \ void __attribute__((noinline)) \ foo2_##n (void *p) \ { \ if (p - __builtin_frame_address (n) != SAVE_AREA_SIZE) \ abort (); \ foo1_##n (__builtin_frame_address (n)); \ } \ void __attribute__((noinline)) \ foo3_##n () \ { \ foo2_##n (__builtin_frame_address (n)); \ } \ void __attribute__((noinline)) \ foo4_##n () \ { \ foo3_##n (); \ } EXPAND_CHECK (0) EXPAND_CHECK (1) EXPAND_CHECK (2) int main () { foo4_0 (); foo4_1 (); foo4_2 (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log