gcc/testsuite/gcc.dg/pr27095.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-O2" } */
   3
   4 /* On MIPS, disable generating hints (R_MIPS_JALR) for PIC calls.  In addition
   5    to the load from the GOT this also contains the name of the function so for
   6    each call the function name would appear twice.  */
   7 /* { dg-options "-O2 -mno-relax-pic-calls" { target mips*-*-* } } */
   8 /* For epiphany, use -mshort-calls to avoid loading the address in two
   9    steps using lowpart and highpart.  */
  10 /* { dg-options "-O2 -mshort-calls" { target epiphany-*-* } } */
  11
  12 extern void *memset (void *, int, __SIZE_TYPE__);
  13 extern __SIZE_TYPE__ strlen (const char *);
  14
  15 int
  16 main (int argc, char **argv)
  17 {
  18   char x[8] = "abc";
  19   memset (x, argc, strlen (x));
  20   return 0;
  21 }
  22 /* { dg-final { scan-assembler-not "(?n)strlen\(.*\n\)+.*strlen" { target { ! { powerpc*-*-darwin* hppa*-*-hpux* ia64-*-hpux* alpha*-*-* spu-*-* tic6x-*-* } } } } } */
  23 /* hppa*-*-hpux* has an IMPORT statement for strlen (plus the branch). */
  24 /* *-*-darwin* has something similar. */
  25 /* tic6x emits a comment at the point where the delayed branch happens.  */
  26 /* { dg-final { scan-assembler-not "(?n)strlen\(.*\n\)+.*strlen\(.*\n\)+.*strlen" { target hppa*-*-hpux* tic6x-*-* } } } */
  27 /* { dg-final { scan-assembler-not "(?n)bl L_strlen\(.*\n\)+.*bl L_strlen" { target powerpc*-*-darwin* } } } */
  28 /* ia64-*-hpux* has a global statement, a type statement, and the branch. */
  29 /* { dg-final { scan-assembler-not "(?n)strlen\(.*\n\)+.*strlen\(.*\n\)+.*strlen\(.*\n\)+.*strlen" { target ia64-*-hpux* } } } */
  30 /* alpha-*-* has a GOT load and the call.  */
  31 /* { dg-final { scan-assembler-not "(?n)jsr .*,strlen\(.*\n\)+.*jsr .*,strlen" { target alpha*-*-* } } } */
  32 /* spu-*-* has a branch hint and the call.  */
  33 /* { dg-final { scan-assembler-not "(?n)brsl.*,strlen\(.*\n\)+.*brsl.*,strlen" { target spu-*-* } } } */