From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 4 Dec 2006 17:22:02 +0000 (+0000)
Subject: The new regexp compilation function must be added to the engine structure.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3c6f95d1b67124c82147911f846eb1993443a39a;p=p5sagit%2Fp5-mst-13.2.git

The new regexp compilation function must be added to the engine structure.

p4raw-id: //depot/perl@29458
---

diff --git a/ext/re/re.xs b/ext/re/re.xs
index 8847901..284a4e9 100644
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -12,6 +12,7 @@
 START_EXTERN_C
 
 extern regexp*	my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm);
+extern regexp*  my_re_compile(pTHX_ char *exp, char *xend, PMOP *pm);
 extern I32	my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
 			    char* strbeg, I32 minend, SV* screamer,
 			    void* data, U32 flags);
@@ -32,6 +33,7 @@ END_EXTERN_C
 
 const struct regexp_engine my_reg_engine = { 
         my_regcomp, 
+	my_re_compile,
         my_regexec, 
         my_re_intuit_start, 
         my_re_intuit_string, 
diff --git a/ext/re/re_top.h b/ext/re/re_top.h
index 178c433..9f12979 100644
--- a/ext/re/re_top.h
+++ b/ext/re/re_top.h
@@ -13,6 +13,7 @@
 #define Perl_regprop            my_regprop
 #define Perl_re_intuit_start    my_re_intuit_start
 #define Perl_pregcomp           my_regcomp
+#define Perl_re_compile         my_re_compile
 #define Perl_regfree_internal   my_regfree
 #define Perl_re_intuit_string   my_re_intuit_string
 #define Perl_regdupe_internal   my_regdupe
diff --git a/regcomp.h b/regcomp.h
index 9cf03b4..e1b17e5 100644
--- a/regcomp.h
+++ b/regcomp.h
@@ -405,6 +405,7 @@ EXTCONST regexp_engine PL_core_reg_engine;
 #else /* DOINIT */
 EXTCONST regexp_engine PL_core_reg_engine = { 
         Perl_pregcomp, 
+	Perl_re_compile,
         Perl_regexec_flags, 
         Perl_re_intuit_start,
         Perl_re_intuit_string, 
diff --git a/regexp.h b/regexp.h
index a0ba5c7..abc744c 100644
--- a/regexp.h
+++ b/regexp.h
@@ -110,6 +110,7 @@ typedef struct re_scream_pos_data_s
 
 typedef struct regexp_engine {
     regexp* (*comp) (pTHX_ char* exp, char* xend, PMOP* pm);
+    regexp* (*compile) (pTHX_ char *exp, char *xend, PMOP *pm);
     I32	    (*exec) (pTHX_ regexp* prog, char* stringarg, char* strend,
 			    char* strbeg, I32 minend, SV* screamer,
 			    void* data, U32 flags);