1 /* { dg-options "-O3 -fgraphite-identity" } */
3 typedef unsigned char U8
;
6 char *Perl_screaminstr (int, int, int);
7 int Perl_utf8_distance (U8
*, U8
*);
10 Perl_re_intuit_start( int minlen
, char *strend
, unsigned int flags
, int i
)
12 register int start_shift
= 0;
13 register int end_shift
= 0;
18 goto success_at_start
;
20 int eshift
= (test1
? Perl_utf8_distance((U8
*)strend
,(U8
*)s
) : (U8
*)strend
- (U8
*)s
) - end
;
21 if (end_shift
< eshift
)
24 s
= Perl_screaminstr(start_shift
+ (s
- strbeg
), end_shift
, 0);
25 while( t
< strend
- minlen
){
28 eshift
= (test1
? Perl_utf8_distance((U8
*)strend
,(U8
*)s
) : (U8
*)strend
- (U8
*)s
) - end
;