summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorDouglas Lankshear <doug@lankshear.net>1998-07-14 09:40:30 -0700
committerGurusamy Sarathy <gsar@cpan.org>1998-07-15 06:43:04 +0000
commitf34e5ce4b0276f80551cc733efcf0cab2a1fed99 (patch)
tree0d15f0637cd5fb988764100e0d75b0574653cf9c /proto.h
parent01bc8b8df635cc09de63c9adbfb322bb0d135520 (diff)
downloadperl-f34e5ce4b0276f80551cc733efcf0cab2a1fed99.tar.gz
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
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h13
1 files changed, 4 insertions, 9 deletions
diff --git a/proto.h b/proto.h
index e1b91dc304..59b2488c24 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 */