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 int Perl_utf8_distance (U8 *, U8 *);
   8
   9 void
  10 Perl_re_intuit_start( int minlen,  char *strend, unsigned int flags, int i)
  11 {
  12   register int start_shift = 0;
  13   register int end_shift = 0;
  14   register char *s;
  15   char *strbeg;
  16   char *t;
  17   if(i > 0)
  18     goto success_at_start;
  19   int end = 0;
  20   int eshift = (test1 ? Perl_utf8_distance((U8*)strend,(U8*)s) : (U8*)strend - (U8*)s) - end;
  21   if (end_shift < eshift)
  22     end_shift = eshift;
  23  restart:
  24   s = Perl_screaminstr(start_shift + (s - strbeg), end_shift, 0);
  25   while( t < strend - minlen){
  26   }
  27  success_at_start:
  28   eshift = (test1 ? Perl_utf8_distance((U8*)strend,(U8*)s) : (U8*)strend - (U8*)s) - end;
  29   goto restart;
  30 }