This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate PL_reg_flags
authorDavid Mitchell <davem@iabyn.com>
Tue, 25 Dec 2012 21:03:27 +0000 (21:03 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 25 Dec 2012 21:03:27 +0000 (21:03 +0000)
The previous 3 commits have removed any usage of the 3 flags bits from
this var; remove the (now unused) varable (which is actually #deffed to
PL_reg_state.re_state_reg_flags).

This change brought to you by the Campaign to Remove Global State from the
Regex Engine(tm).

regexp.h

index 2c7eb87..9cdc009 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -755,7 +755,6 @@ typedef struct regmatch_slab {
     struct regmatch_slab *prev, *next;
 } regmatch_slab;
 
-#define PL_reg_flags           PL_reg_state.re_state_reg_flags
 #define PL_bostr               PL_reg_state.re_state_bostr
 #define PL_regeol              PL_reg_state.re_state_regeol
 #define PL_reg_match_utf8      PL_reg_state.re_state_reg_match_utf8
@@ -775,7 +774,6 @@ typedef struct regmatch_slab {
 #define PL_nrs                 PL_reg_state.re_state_nrs
 
 struct re_save_state {
-    U32 re_state_reg_flags;            /* from regexec.c */
     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 */