gcc/testsuite/gcc.dg/graphite/id-pr43464.c

   1 typedef struct sv SV;
   2 typedef struct regnode
   3 {
   4   char flags;
   5 } regnode;
   6 typedef struct regexp
   7 {
   8 } regexp;
   9 typedef struct cop
  10 {
  11   SV *cop_warnings;
  12 } COP;
  13 extern const unsigned char PL_utf8skip[];
  14 extern char PL_dowarn;
  15 extern COP *volatile PL_curcop;
  16 int S_reginclass (regnode *);
  17 int S_regtry (regexp *, char *);
  18 unsigned long Perl_utf8n_to_uvuni (char *, int, long unsigned int *, int);
  19 char *
  20 S_find_byclass (regexp * prog, regnode * c, char *s, char *strend,
  21                 char *startpos, int norun)
  22 {
  23   register long unsigned int uskip;
  24   char *e;
  25   switch (((c)->flags))
  26     {
  27     case 17:
  28         {
  29           while (s + (uskip = PL_utf8skip[*s]) <= strend)
  30             {
  31               if (c->flags || S_reginclass (c))
  32                   if (norun || S_regtry (prog, s))
  33                     goto got_it;
  34               s += uskip;
  35             }
  36           unsigned long c, f;
  37           long unsigned int len;
  38             {
  39               while (s <= e)
  40                 {
  41                   c = Perl_utf8n_to_uvuni (s, 13, &len,
  42                                            (((PL_curcop->cop_warnings !=
  43                                               ((SV *) ((void *) 0)))
  44                                              && PL_dowarn)) ? 0 : 0x00FF);
  45                   if (c == 0 && (norun || S_regtry (prog, s)))
  46                       if (f != c && (norun || S_regtry (prog, s)))
  47                         goto got_it;
  48                 }
  49             }
  50         }
  51     }
  52 got_it:
  53   return s;
  54 }
  55 void
  56 Perl_re_intuit_start (regexp * prog)
  57 {
  58   S_find_byclass (prog, 0, 0, 0, 0, 1);
  59 }
  60 void
  61 Perl_regexec_flags (register regexp * prog,
  62                     register char *strend)
  63 {
  64   S_find_byclass (prog, 0, 0, strend, 0, 0);
  65 }
  66 int
  67 S_regtry (regexp * prog, char *startpos)
  68 {
  69 }