This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pod/perlfunc: Tweak new kill() wording
[perl5.git] / regexp.h
index 9cdc009..51630e4 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -119,7 +119,6 @@ struct reg_code_block {
        /* during matching */                                           \
        U32 lastparen;                  /* last open paren matched */   \
        U32 lastcloseparen;             /* last close paren matched */  \
-       regexp_paren_pair *swap;        /* Unused: 5.10.1 and later */  \
        /* Array of offsets for (@-) and (@+) */                        \
        regexp_paren_pair *offs;                                        \
        /* saved or original string so \digit works forever. */         \
@@ -777,6 +776,10 @@ struct re_save_state {
     bool re_state_eval_setup_done;     /* from regexec.c */
     bool re_state_reg_match_utf8;      /* from regexec.c */
     bool re_reparsing;                 /* runtime (?{}) fed back into parser */
+    /* Space for U8 */
+    I32 re_state_reg_oldpos;           /* from regexec.c */
+    I32 re_state_reg_maxiter;          /* max wait until caching pos */
+    I32 re_state_reg_leftiter;         /* wait until caching pos */
     char *re_state_bostr;
     char *re_state_regeol;             /* End of input, for $ check. */
     MAGIC *re_state_reg_magic;         /* from regexec.c */
@@ -787,9 +790,6 @@ struct re_save_state {
     STRLEN re_state_reg_oldsavedoffset;        /* old offset of saved substr during match */
     STRLEN re_state_reg_oldsavedcoffset;/* old coffset of saved substr during match */
     STRLEN re_state_reg_poscache_size; /* size of pos cache of WHILEM */
-    I32 re_state_reg_oldpos;           /* from regexec.c */
-    I32 re_state_reg_maxiter;          /* max wait until caching pos */
-    I32 re_state_reg_leftiter;         /* wait until caching pos */
     char *re_state_reg_poscache;       /* cache of pos of WHILEM */
     char *re_state_reg_starttry;       /* from regexec.c */
 #ifdef PERL_ANY_COW