gcc/testsuite/gcc.dg/graphite/pr38500.c

   1 /* { dg-options "-O3 -fgraphite-identity" } */
   2
   3 typedef unsigned char U8;
   4 extern char test1;
   5
   6 char *Perl_screaminstr (int, int, int);
   7
   8 void
   9 Perl_re_intuit_start( int minlen,  char *strend, unsigned int flags, int i)
  10 {
  11   register int start_shift = 0;
  12   register int end_shift = 0;
  13   register char *s;
  14   char *strbeg;
  15   char *t;
  16   if(i > 0)
  17     goto success_at_start;
  18   int end = 0;
  19   int eshift = (test1 ? Perl_utf8_distance((U8*)strend,(U8*)s) : (U8*)strend - (U8*)s) - end;
  20   if (end_shift < eshift)
  21     end_shift = eshift;
  22  restart:
  23   s = Perl_screaminstr(start_shift + (s - strbeg), end_shift, 0);
  24   while( t < strend - minlen){
  25   }
  26  success_at_start:
  27   eshift = (test1 ? Perl_utf8_distance((U8*)strend,(U8*)s) : (U8*)strend - (U8*)s) - end;
  28   goto restart;
  29 }