X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=8b7727b6e7ed6f82409feb313ad743cff37b1395;hb=903fdac21b63b269a4a8f5c85ee85233f129a140;hp=8a684c1857d99f75d63ab16d1193ce82607b1a79;hpb=59bd0823b6625605b67ec19bd9bcc4dd06530e7e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.fnc b/embed.fnc
index 8a684c1..8b7727b 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -555,7 +555,10 @@ dopM	|PerlIO*|start_glob	|SV* pattern|IO *io
 Ap	|struct perl_thread*	|new_struct_thread|struct perl_thread *t
 #endif
 #if defined(USE_REENTRANT_API)
+Ap	|void	|reentrant_size
 Ap	|void	|reentrant_init
+Ap	|void	|reentrant_free
+Afnp	|void*	|reentrant_retry|const char*|...
 #endif
 Ap	|void	|call_atexit	|ATEXIT_t fn|void *ptr
 Apd	|I32	|call_argv	|const char* sub_name|I32 flags|char** argv
@@ -1154,8 +1157,7 @@ s	|I32	|regmatch	|regnode *prog
 s	|I32	|regrepeat	|regnode *p|I32 max
 s	|I32	|regrepeat_hard	|regnode *p|I32 max|I32 *lp
 s	|I32	|regtry		|regexp *prog|char *startpos
-s	|bool	|reginclass	|regnode *n|U8 *p|bool do_utf8sv_is_utf8
-s	|bool	|reginclasslen	|regnode *n|U8 *p|STRLEN *lenp|bool do_utf8sv_is_utf8
+s	|bool	|reginclass	|regnode *n|U8 *p|STRLEN *lenp|bool do_utf8sv_is_utf8
 s	|CHECKPOINT|regcppush	|I32 parenfloor
 s	|char*|regcppop
 s	|char*|regcp_set_to	|I32 ss
@@ -1165,6 +1167,8 @@ s	|U8*	|reghop3	|U8 *pos|I32 off|U8 *lim
 s	|U8*	|reghopmaybe	|U8 *pos|I32 off
 s	|U8*	|reghopmaybe3	|U8 *pos|I32 off|U8 *lim
 s	|char*	|find_byclass	|regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
+s	|void	|to_utf8_substr	|regexp * prog
+s	|void	|to_byte_substr	|regexp * prog
 #endif
 
 #if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)