From: Douglas Lankshear Date: Tue, 14 Jul 1998 16:40:30 +0000 (-0700) Subject: make pregcomp et al VIRTUAL again for PERL_OBJECT X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f34e5ce4b0276f80551cc733efcf0cab2a1fed99;p=p5sagit%2Fp5-mst-13.2.git make pregcomp et al VIRTUAL again for PERL_OBJECT Message-ID: <000301bdaf80$c93d14a0$a32fa8c0@tau.Active> Subject: [PATCH 5.004_74] p4raw-id: //depot/perl@1506 --- diff --git a/proto.h b/proto.h index e1b91dc..59b2488 100644 --- a/proto.h +++ b/proto.h @@ -435,6 +435,10 @@ VIRTUAL OP* refkids _((OP* o, I32 type)); VIRTUAL void regdump _((regexp* r)); VIRTUAL I32 pregexec _((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave)); VIRTUAL void pregfree _((struct regexp* r)); +VIRTUAL regexp* pregcomp _((char* exp, char* xend, PMOP* pm)); +VIRTUAL I32 regexec_flags _((regexp* prog, char* stringarg, char* strend, + char* strbeg, I32 minend, SV* screamer, + void* data, U32 flags)); VIRTUAL regnode* regnext _((regnode* p)); VIRTUAL void regprop _((SV* sv, regnode* o)); VIRTUAL void repeatcpy _((char* to, char* from, I32 len, I32 count)); @@ -711,11 +715,6 @@ int div128 _((SV *pnum, bool *done)); int runops_standard _((void)); int runops_debug _((void)); -regexp* pregcomp _((char* exp, char* xend, PMOP* pm)); -I32 regexec_flags _((regexp* prog, char* stringarg, char* strend, - char* strbeg, I32 minend, SV* screamer, - void* data, U32 flags)); - void check_uni _((void)); void force_next _((I32 type)); char *force_version _((char *start)); @@ -880,10 +879,6 @@ VIRTUAL SV** get_specialsv_list _((void)); VIRTUAL int& ErrorNo _((void)); #endif /* WIN32 */ #else /* !PERL_OBJECT */ -regexp* pregcomp _((char* exp, char* xend, PMOP* pm)); -I32 regexec_flags _((regexp* prog, char* stringarg, char* strend, - char* strbeg, I32 minend, SV* screamer, - void* data, U32 flags)); END_EXTERN_C #endif /* PERL_OBJECT */