From: Douglas Lankshear <doug@lankshear.net>
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 */