aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8.1/gcc/testsuite/gcc.dg/graphite/id-pr43464.c
diff options
context:
space:
mode:
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.c63
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)
-{
-}