Change 29458 by [EMAIL PROTECTED] on 2006/12/04 17:22:02
The new regexp compilation function must be added to the engine
structure.
Affected files ...
... //depot/perl/ext/re/re.xs#34 edit
... //depot/perl/ext/re/re_top.h#5 edit
... //depot/perl/regcomp.h#105 edit
... //depot/perl/regexp.h#77 edit
Differences ...
==== //depot/perl/ext/re/re.xs#34 (text) ====
Index: perl/ext/re/re.xs
--- perl/ext/re/re.xs#33~29430~ 2006-12-01 05:59:27.000000000 -0800
+++ perl/ext/re/re.xs 2006-12-04 09:22:02.000000000 -0800
@@ -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 @@
const struct regexp_engine my_reg_engine = {
my_regcomp,
+ my_re_compile,
my_regexec,
my_re_intuit_start,
my_re_intuit_string,
==== //depot/perl/ext/re/re_top.h#5 (text) ====
Index: perl/ext/re/re_top.h
--- perl/ext/re/re_top.h#4~29430~ 2006-12-01 05:59:27.000000000 -0800
+++ perl/ext/re/re_top.h 2006-12-04 09:22:02.000000000 -0800
@@ -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
==== //depot/perl/regcomp.h#105 (text) ====
Index: perl/regcomp.h
--- perl/regcomp.h#104~29430~ 2006-12-01 05:59:27.000000000 -0800
+++ perl/regcomp.h 2006-12-04 09:22:02.000000000 -0800
@@ -405,6 +405,7 @@
#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,
==== //depot/perl/regexp.h#77 (text) ====
Index: perl/regexp.h
--- perl/regexp.h#76~29430~ 2006-12-01 05:59:27.000000000 -0800
+++ perl/regexp.h 2006-12-04 09:22:02.000000000 -0800
@@ -110,6 +110,7 @@
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);
End of Patch.
