In struct regexp replace the two arrays of I32s accessed via startp

and endp with a single array of struct regexp_paren_pair, which has 2
I32 members. PL_regstartp and PL_regendp are replaced with a pointer
to regexp_paren_pair. The regexp swap structure now only has one
member, so abolish it and store the pointer to the swap array directly.
Hopefully keeping the corresponding start and end adjacent in memory
will help with cache coherency.

p4raw-id: //depot/perl@30769

1 files changed, 3 insertions, 4 deletions

diff --git a/sv.c b/sv.c
index c10eb932e8..88dcd9686d 100644
--- a/sv.c
+++ b/sv.c
@@ -10616,10 +10616,9 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
 		    = pv_dup(old_state->re_state_reginput);
 		new_state->re_state_regeol
 		    = pv_dup(old_state->re_state_regeol);
-		new_state->re_state_regstartp
-		    = (I32*) any_dup(old_state->re_state_regstartp, proto_perl);
-		new_state->re_state_regendp
-		    = (I32*) any_dup(old_state->re_state_regendp, proto_perl);
+		new_state->re_state_regoffs
+		    = (regexp_paren_pair*)
+			any_dup(old_state->re_state_regoffs, proto_perl);
 		new_state->re_state_reglastparen
 		    = (U32*) any_dup(old_state->re_state_reglastparen, 
 			      proto_perl);