/* Check that long calls to different sections are not optimized to "bl". */
|
/* Check that long calls to different sections are not optimized to "bl". */
|
/* { dg-do compile { target { arm32 && nonpic } } } */
|
/* { dg-do compile { target { arm32 && nonpic } } } */
|
/* { dg-options "-O2 -mlong-calls" } */
|
/* { dg-options "-O2 -mlong-calls" } */
|
|
|
#define section(S) __attribute__((section(S)))
|
#define section(S) __attribute__((section(S)))
|
#define weak __attribute__((weak))
|
#define weak __attribute__((weak))
|
#define noinline __attribute__((noinline))
|
#define noinline __attribute__((noinline))
|
#define long_call __attribute__((long_call))
|
#define long_call __attribute__((long_call))
|
#define short_call __attribute__((short_call))
|
#define short_call __attribute__((short_call))
|
|
|
#define REMOTE_CALL(ID, TARGET_ATTRS, CALL_ATTRS) \
|
#define REMOTE_CALL(ID, TARGET_ATTRS, CALL_ATTRS) \
|
const char *TARGET_ATTRS ID (void); \
|
const char *TARGET_ATTRS ID (void); \
|
const char *CALL_ATTRS call_##ID (void) { return ID () + 1; }
|
const char *CALL_ATTRS call_##ID (void) { return ID () + 1; }
|
|
|
#define EXTERN_CALL(ID, TARGET_ATTRS, CALL_ATTRS) \
|
#define EXTERN_CALL(ID, TARGET_ATTRS, CALL_ATTRS) \
|
const char *TARGET_ATTRS noinline ID (void) { return #ID; } \
|
const char *TARGET_ATTRS noinline ID (void) { return #ID; } \
|
const char *CALL_ATTRS call_##ID (void) { return ID () + 1; } \
|
const char *CALL_ATTRS call_##ID (void) { return ID () + 1; } \
|
const char *CALL_ATTRS sibcall_##ID (void) { return ID (); }
|
const char *CALL_ATTRS sibcall_##ID (void) { return ID (); }
|
|
|
#define STATIC_CALL(ID, TARGET_ATTRS, CALL_ATTRS) \
|
#define STATIC_CALL(ID, TARGET_ATTRS, CALL_ATTRS) \
|
static const char *TARGET_ATTRS noinline ID (void) { return #ID; } \
|
static const char *TARGET_ATTRS noinline ID (void) { return #ID; } \
|
const char *CALL_ATTRS call_##ID (void) { return ID () + 1; } \
|
const char *CALL_ATTRS call_##ID (void) { return ID () + 1; } \
|
const char *CALL_ATTRS sibcall_##ID (void) { return ID (); }
|
const char *CALL_ATTRS sibcall_##ID (void) { return ID (); }
|
|
|
#define DO_TESTS_SECTION(ID, TEST, TARGET_ATTRS) \
|
#define DO_TESTS_SECTION(ID, TEST, TARGET_ATTRS) \
|
TEST (ID##1, TARGET_ATTRS, ) \
|
TEST (ID##1, TARGET_ATTRS, ) \
|
TEST (ID##2, TARGET_ATTRS section (".test.a"), section (".test.b")) \
|
TEST (ID##2, TARGET_ATTRS section (".test.a"), section (".test.b")) \
|
TEST (ID##3, TARGET_ATTRS section (".test.c"), section (".test.c"))
|
TEST (ID##3, TARGET_ATTRS section (".test.c"), section (".test.c"))
|
|
|
#define DO_TESTS_CALL_ATTR(ID, TEST, TARGET_ATTRS) \
|
#define DO_TESTS_CALL_ATTR(ID, TEST, TARGET_ATTRS) \
|
DO_TESTS_SECTION (ID##n, TEST, TARGET_ATTRS) \
|
DO_TESTS_SECTION (ID##n, TEST, TARGET_ATTRS) \
|
DO_TESTS_SECTION (ID##l, TEST, TARGET_ATTRS long_call) \
|
DO_TESTS_SECTION (ID##l, TEST, TARGET_ATTRS long_call) \
|
DO_TESTS_SECTION (ID##s, TEST, TARGET_ATTRS short_call)
|
DO_TESTS_SECTION (ID##s, TEST, TARGET_ATTRS short_call)
|
|
|
DO_TESTS_CALL_ATTR (remote_, REMOTE_CALL,)
|
DO_TESTS_CALL_ATTR (remote_, REMOTE_CALL,)
|
DO_TESTS_CALL_ATTR (strong_, EXTERN_CALL,)
|
DO_TESTS_CALL_ATTR (strong_, EXTERN_CALL,)
|
DO_TESTS_CALL_ATTR (weak_, EXTERN_CALL, weak)
|
DO_TESTS_CALL_ATTR (weak_, EXTERN_CALL, weak)
|
DO_TESTS_CALL_ATTR (static_, STATIC_CALL,)
|
DO_TESTS_CALL_ATTR (static_, STATIC_CALL,)
|
|
|
|
|
/* Calls to remote_* should honor the call type attribute,
|
/* Calls to remote_* should honor the call type attribute,
|
with "long" being the default.
|
with "long" being the default.
|
|
|
In the regular expressions below:
|
In the regular expressions below:
|
|
|
* We allow both "b" and "bl" in some cases to allow for the
|
* We allow both "b" and "bl" in some cases to allow for the
|
possibility of sibling calls. As of this writing, GCC does not
|
possibility of sibling calls. As of this writing, GCC does not
|
use sibling calls in Thumb-2 mode. */
|
use sibling calls in Thumb-2 mode. */
|
|
|
/* { dg-final { scan-assembler-not "\tbl\tremote_n1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_n1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_n2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_n2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_n3\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_n3\n" } } */
|
|
|
/* { dg-final { scan-assembler-not "\tbl\tremote_l1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_l1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_l2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_l2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_l3\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tremote_l3\n" } } */
|
|
|
/* { dg-final { scan-assembler "\tbl\tremote_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tremote_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tremote_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tremote_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tremote_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tremote_s3\n" } } */
|
|
|
|
|
/* Calls to strong_*2 calls should honor the call type attribute,
|
/* Calls to strong_*2 calls should honor the call type attribute,
|
with "long" being the default. Calls to other strong_* functions
|
with "long" being the default. Calls to other strong_* functions
|
should be short. */
|
should be short. */
|
|
|
/* { dg-final { scan-assembler "\tbl\tstrong_n1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_n1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_n1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_n1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tstrong_n2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl\tstrong_n2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_n3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_n3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_n3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_n3\n" } } */
|
|
|
/* { dg-final { scan-assembler "\tbl\tstrong_l1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_l1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_l1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_l1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tstrong_l2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tstrong_l2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_l3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_l3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_l3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_l3\n" } } */
|
|
|
/* { dg-final { scan-assembler "\tbl\tstrong_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstrong_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstrong_s3\n" } } */
|
|
|
|
|
/* Calls to weak_* should honor the call type attribute,
|
/* Calls to weak_* should honor the call type attribute,
|
with "long" being the default. */
|
with "long" being the default. */
|
|
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_n1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_n1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_n2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_n2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_n3\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_n3\n" } } */
|
|
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_l1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_l1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_l2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_l2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_l3\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tweak_l3\n" } } */
|
|
|
/* { dg-final { scan-assembler "\tbl\tweak_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tweak_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tweak_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tweak_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tweak_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tweak_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tweak_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tweak_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tweak_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tweak_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tweak_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tweak_s3\n" } } */
|
|
|
|
|
/* Calls to static_*2 calls should honor the call type attribute,
|
/* Calls to static_*2 calls should honor the call type attribute,
|
with "long" being the default. Calls to other static_* functions
|
with "long" being the default. Calls to other static_* functions
|
should be short. */
|
should be short. */
|
|
|
/* { dg-final { scan-assembler "\tbl\tstatic_n1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_n1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_n1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_n1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tstatic_n2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tstatic_n2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_n3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_n3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_n3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_n3\n" } } */
|
|
|
/* { dg-final { scan-assembler "\tbl\tstatic_l1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_l1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_l1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_l1\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tstatic_l2\n" } } */
|
/* { dg-final { scan-assembler-not "\tbl?\tstatic_l2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_l3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_l3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_l3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_l3\n" } } */
|
|
|
/* { dg-final { scan-assembler "\tbl\tstatic_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_s1\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_s2\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl\tstatic_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_s3\n" } } */
|
/* { dg-final { scan-assembler "\tbl?\tstatic_s3\n" } } */
|
|
|