support match indices via special variables @- and @+

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 5b71f63..02d7a7e 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -126,7 +126,7 @@ I32 do_shmio _((I32 optype, SV** mark, SV** sp));
 VIRTUAL void   do_sprintf _((SV* sv, I32 len, SV** sarg));
 VIRTUAL long   do_sysseek _((GV* gv, long pos, int whence));
 VIRTUAL long   do_tell _((GV* gv));
-VIRTUAL I32    do_trans _((SV* sv, OP* arg));
+VIRTUAL I32    do_trans _((SV* sv));
 VIRTUAL void   do_vecset _((SV* sv));
 VIRTUAL void   do_vop _((I32 optype, SV* sv, SV* left, SV* right));
 VIRTUAL I32    dowantarray _((void));
@@ -267,6 +267,8 @@ VIRTUAL U32 magic_len       _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_mutexfree _((SV* sv, MAGIC* mg));
 #endif /* USE_THREADS */
 VIRTUAL int    magic_nextpack  _((SV* sv, MAGIC* mg, SV* key));
+VIRTUAL int    magic_regdata_cnt       _((SV* sv, MAGIC* mg));
+VIRTUAL int    magic_regdatum_get      _((SV* sv, MAGIC* mg));
 VIRTUAL int    magic_set       _((SV* sv, MAGIC* mg));
 #ifdef OVERLOAD
 VIRTUAL int    magic_setamagic _((SV* sv, MAGIC* mg));