From f2f78491bc610222b437dc1912ed4ab18db55da8 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Fri, 29 Sep 2006 18:57:07 +0200 Subject: Re: [PATCH] Add hook for re_dup() into regex engine as reg_dupe (make re pluggable under threads) Message-ID: <9b18b3110609290757n62b3484i7bb948f965524191@mail.gmail.com> p4raw-id: //depot/perl@28902 --- perl.h | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'perl.h') diff --git a/perl.h b/perl.h index bc0b19258e..ac26b38fb1 100644 --- a/perl.h +++ b/perl.h @@ -198,19 +198,21 @@ #define CALLREGCOMP(exp, xend, pm) Perl_pregcomp(aTHX_ exp,xend,pm) +#define CALLREGCOMP_ENG(prog, exp, xend, pm) \ + CALL_FPTR(((prog)->comp))(aTHX_ exp, xend, pm) #define CALLREGEXEC(prog,stringarg,strend,strbeg,minend,screamer,data,flags) \ - CALL_FPTR((prog)->engine->regexec)(aTHX_ (prog),(stringarg),(strend), \ + CALL_FPTR((prog)->engine->exec)(aTHX_ (prog),(stringarg),(strend), \ (strbeg),(minend),(screamer),(data),(flags)) #define CALLREG_INTUIT_START(prog,sv,strpos,strend,flags,data) \ - CALL_FPTR((prog)->engine->re_intuit_start)(aTHX_ (prog), (sv), (strpos), \ + CALL_FPTR((prog)->engine->intuit)(aTHX_ (prog), (sv), (strpos), \ (strend),(flags),(data)) #define CALLREG_INTUIT_STRING(prog) \ - CALL_FPTR((prog)->engine->re_intuit_string)(aTHX_ (prog)) + CALL_FPTR((prog)->engine->checkstr)(aTHX_ (prog)) #define CALLREGFREE(prog) \ - if(prog) CALL_FPTR((prog)->engine->regfree)(aTHX_ (prog)) + if(prog) CALL_FPTR((prog)->engine->free)(aTHX_ (prog)) #if defined(USE_ITHREADS) #define CALLREGDUPE(prog,param) \ - (prog ? CALL_FPTR((prog)->engine->regdupe)(aTHX_ (prog),(param)) \ + (prog ? CALL_FPTR((prog)->engine->dupe)(aTHX_ (prog),(param)) \ : (REGEXP *)NULL) #endif -- cgit v1.2.1