diff options
Diffstat (limited to 'gcc-4.8.1/gcc/testsuite/gcc.dg/graphite/id-pr43464.c')
-rw-r--r-- | gcc-4.8.1/gcc/testsuite/gcc.dg/graphite/id-pr43464.c | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/gcc-4.8.1/gcc/testsuite/gcc.dg/graphite/id-pr43464.c b/gcc-4.8.1/gcc/testsuite/gcc.dg/graphite/id-pr43464.c deleted file mode 100644 index a8e67dc2b..000000000 --- a/gcc-4.8.1/gcc/testsuite/gcc.dg/graphite/id-pr43464.c +++ /dev/null @@ -1,63 +0,0 @@ -typedef struct sv SV; -typedef struct regnode -{ - char flags; -} regnode; -typedef struct regexp -{ -} regexp; -typedef struct cop -{ - SV *cop_warnings; -} COP; -extern const unsigned char PL_utf8skip[]; -extern char PL_dowarn; -extern COP *volatile PL_curcop; -char * -S_find_byclass (regexp * prog, regnode * c, char *s, char *strend, - char *startpos, int norun) -{ - register long unsigned int uskip; - char *e; - switch (((c)->flags)) - { - case 17: - { - while (s + (uskip = PL_utf8skip[*s]) <= strend) - { - if (c->flags || S_reginclass (c)) - if (norun || S_regtry (prog, s)) - goto got_it; - s += uskip; - } - unsigned long c, f; - long unsigned int len; - { - while (s <= e) - { - c = Perl_utf8n_to_uvuni (s, 13, &len, - (((PL_curcop->cop_warnings != - ((SV *) ((void *) 0))) - && PL_dowarn)) ? 0 : 0x00FF); - if (c == 0 && (norun || S_regtry (prog, s))) - if (f != c && (norun || S_regtry (prog, s))) - goto got_it; - } - } - } - } -got_it: - return s; -} -Perl_re_intuit_start (regexp * prog) -{ - S_find_byclass (prog, 0, 0, 0, 0, 1); -} -Perl_regexec_flags (register regexp * prog, - register char *strend) -{ - S_find_byclass (prog, 0, 0, strend, 0, 0); -} -S_regtry (regexp * prog, char *startpos) -{ -} |