diff options
author | Douglas Lankshear <doug@lankshear.net> | 1998-07-14 09:40:30 -0700 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-15 06:43:04 +0000 |
commit | f34e5ce4b0276f80551cc733efcf0cab2a1fed99 (patch) | |
tree | 0d15f0637cd5fb988764100e0d75b0574653cf9c /proto.h | |
parent | 01bc8b8df635cc09de63c9adbfb322bb0d135520 (diff) | |
download | perl-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.h | 13 |
1 files changed, 4 insertions, 9 deletions
@@ -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 */ |