2022-cn.enc of Encode.pm

[p5sagit/p5-mst-13.2.git] / embed.pl

diff --git a/embed.pl b/embed.pl
index c303c01..8671366 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -1967,10 +1967,10 @@ Ap      |void   |ptr_table_free|PTR_TBL_t *tbl
 Ap     |void   |sys_intern_clear
 Ap     |void   |sys_intern_init
 #endif
-#if defined(PERL_CUSTOM_OPS)
+
 Ap |char * |custom_op_name|OP* op
 Ap |char * |custom_op_desc|OP* op
-#endif
+
 
 END_EXTERN_C
 
@@ -2188,13 +2188,13 @@ s       |void   |debprof        |OP *o
 s      |SV*    |save_scalar_at |SV **sptr
 #endif
 
-#if defined(USE_ITHREADS) && (defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT))
+#if defined(USE_ITHREADS)
 Adp    |void        |sharedsv_init
-Adp    |shared_sv*    |sharedsv_new
-Adp    |shared_sv*    |sharedsv_find        |SV* sv
-Adp    |void        |sharedsv_lock        |shared_sv* ssv
-Adp    |void        |sharedsv_unlock    |shared_sv* ssv
-p      |void        |sharedsv_unlock_scope    |shared_sv* ssv
+Adp    |shared_sv*  |sharedsv_new
+Adp    |shared_sv*  |sharedsv_find          |SV* sv
+Adp    |void        |sharedsv_lock          |shared_sv* ssv
+Adp    |void        |sharedsv_unlock        |shared_sv* ssv
+p      |void        |sharedsv_unlock_scope  |shared_sv* ssv
 Adp    |void        |sharedsv_thrcnt_inc    |shared_sv* ssv
 Adp    |void        |sharedsv_thrcnt_dec    |shared_sv* ssv
 #endif
@@ -2260,7 +2260,7 @@ s |SV*    |gv_share       |SV *sv
 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
 s      |void   |check_uni
 s      |void   |force_next     |I32 type
-s      |char*  |force_version  |char *start
+s      |char*  |force_version  |char *start|int guessing
 s      |char*  |force_word     |char *start|int token|int check_keyword \
                                |int allow_pack|int allow_tick
 s      |SV*    |tokeq          |SV *sv