This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make pregcomp et al VIRTUAL again for PERL_OBJECT
authorDouglas Lankshear <doug@lankshear.net>
Tue, 14 Jul 1998 16:40:30 +0000 (09:40 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 15 Jul 1998 06:43:04 +0000 (06:43 +0000)
Message-ID: <000301bdaf80$c93d14a0$a32fa8c0@tau.Active>
Subject: [PATCH 5.004_74]

p4raw-id: //depot/perl@1506

proto.h

diff --git a/proto.h b/proto.h
index e1b91dc..59b2488 100644 (file)
--- 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 */