fix major bug in GIMME (introduced in 5.003_96); void contexts were

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index e1b91dc..2908222 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -209,7 +209,6 @@ VIRTUAL int magic_clear_all_env _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_clearpack _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_clearsig  _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_existspack _((SV* sv, MAGIC* mg));
-VIRTUAL int    magic_freedefelem _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_freeregexp _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_get       _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_getarylen _((SV* sv, MAGIC* mg));
@@ -435,6 +434,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 +714,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 +878,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 */