X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f32e6ab4171e9bdda6a495c9f9a73d2fcb2806b8..ba5e661aead245e882b11d5a1c89fffaedbc29ec:/embed.fnc?ds=sidebyside

diff --git a/embed.fnc b/embed.fnc
index f51e37c..1fd1f4e 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -51,7 +51,8 @@
 :      Should always be combined with "X" to be usable from dynamically
 :      loaded extensions.
 :
-:   f  Function takes printf style format string, varargs:
+:   f  Function takes printf style format string, varargs (hence any entry that
+:      would otherwise go in embed.h is suppressed):
 :
 :         proto.h: add __attribute__format__ (or ...null_ok__)
 :
@@ -287,7 +288,7 @@ Afnp	|int	|printf_nocontext|NN const char *format|...
 p	|SV *	|core_prototype	|NULLOK SV *sv|NN const char *name \
 				|const int code|NULLOK int * const opnum
 : Used in gv.c
-p	|OP *	|coresub_op	|NN SV *coreargssv|const int code \
+p	|OP *	|coresub_op	|NN SV *const coreargssv|const int code \
 				|const int opnum
 : Used in sv.c
 p	|void	|cv_ckproto_len_flags	|NN const CV* cv|NULLOK const GV* gv\
@@ -623,6 +624,8 @@ ADMpPR	|bool	|is_uni_punct	|UV c
 ADMpPR	|bool	|is_uni_xdigit	|UV c
 AMp	|UV	|to_uni_upper	|UV c|NN U8 *p|NN STRLEN *lenp
 AMp	|UV	|to_uni_title	|UV c|NN U8 *p|NN STRLEN *lenp
+iDMpPR	|bool	|isIDFIRST_lazy	|NN const char* p
+iDMpPR	|bool	|isALNUM_lazy	|NN const char* p
 #ifdef PERL_IN_UTF8_C
 sR	|U8	|to_lower_latin1|const U8 c|NULLOK U8 *p|NULLOK STRLEN *lenp
 #endif
@@ -748,6 +751,8 @@ EMiR	|bool	|grok_bslash_x	|NN char** s|NN UV* uv           \
 				|const bool strict               \
 				|const bool silence_non_portable \
 				|const bool utf8
+EMsPR	|char*|form_short_octal_warning|NN const char * const s  \
+				|const STRLEN len
 #endif
 Apd	|UV	|grok_hex	|NN const char* start|NN STRLEN* len_p|NN I32* flags|NULLOK NV *result
 Apd	|int	|grok_number	|NN const char *pv|STRLEN len|NULLOK UV *valuep
@@ -779,7 +784,13 @@ p	|int	|magic_getvec	|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_nextpack	|NN SV *sv|NN MAGIC *mg|NN SV *key
 p	|U32	|magic_regdata_cnt|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_regdatum_get|NN SV* sv|NN MAGIC* mg
+:removing noreturn to silence a warning for this function resulted in no
+:change to the interpreter DLL image under VS 2003 -O1 -GL 32 bits
+#ifdef _MSC_VER
+p	|int	|magic_regdatum_set|NN SV* sv|NN MAGIC* mg
+#else
 pr	|int	|magic_regdatum_set|NN SV* sv|NN MAGIC* mg
+#endif
 p	|int	|magic_set	|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_setarylen|NN SV* sv|NN MAGIC* mg
 p	|int	|magic_cleararylen_p|NN SV* sv|NN MAGIC* mg
@@ -1962,7 +1973,12 @@ Es	|STRLEN	|reguni		|NN const struct RExC_state_t *pRExC_state \
 Es	|regnode*|regclass	|NN struct RExC_state_t *pRExC_state \
 				|NN I32 *flagp|U32 depth|const bool stop_at_1 \
 				|bool allow_multi_fold                        \
-				|const bool silence_non_portable
+				|const bool silence_non_portable	      \
+				|NULLOK SV** ret_invlist
+Es	|bool|could_it_be_POSIX	|NN struct RExC_state_t *pRExC_state
+Es	|regnode*|handle_sets	|NN struct RExC_state_t *pRExC_state \
+				|NN I32 *flagp|U32 depth \
+				|NN char * const oregcomp_parse
 Es	|regnode*|reg_node	|NN struct RExC_state_t *pRExC_state|U8 op
 Es	|UV	|reg_recode	|const char value|NN SV **encp
 Es	|regnode*|regpiece	|NN struct RExC_state_t *pRExC_state \
@@ -2014,7 +2030,7 @@ EsRn	|U32	|add_data	|NN struct RExC_state_t *pRExC_state|U32 n \
 				|NN const char *s
 rs	|void	|re_croak2	|NN const char* pat1|NN const char* pat2|...
 Ei	|I32	|regpposixcc	|NN struct RExC_state_t *pRExC_state \
-				|I32 value|NULLOK SV *free_me
+				|I32 value|NULLOK SV *free_me|const bool strict
 Es	|I32	|make_trie	|NN struct RExC_state_t *pRExC_state \
 				|NN regnode *startbranch|NN regnode *first \
 				|NN regnode *last|NN regnode *tail \