X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/839cfe5dcd857d5775f8c5d638b85b1a539d73c9..68a9cf1a90f1a8fed74fdd419ad1ec538439e1c8:/embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 16a1c9b..ec97105 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -545,6 +545,8 @@ p	|bool	|io_close	|NN IO* io|bool not_implicit
 : Used in perly.y
 pR	|OP*	|invert		|NULLOK OP* cmd
 ApR	|I32	|is_lvalue_sub
+: Used in cop.h
+ApR	|I32	|was_lvalue_sub
 ApPR	|U32	|to_uni_upper_lc|U32 c
 ApPR	|U32	|to_uni_title_lc|U32 c
 ApPR	|U32	|to_uni_lower_lc|U32 c
@@ -1300,10 +1302,6 @@ Apd	|void	|sv_vsetpvfn	|NN SV *const sv|NN const char *const pat|const STRLEN pa
 ApR	|NV	|str_to_version	|NN SV *sv
 Ap	|SV*	|swash_init	|NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
 Ap	|UV	|swash_fetch	|NN SV *swash|NN const U8 *ptr|bool do_utf8
-EXMpR	|HV*	|_swash_inversion_hash	|NN SV* const swash
-EXMpR	|SV*	|_new_invlist	|IV initial_size
-EXMpR	|SV*	|_swash_to_invlist	|NN SV* const swash
-EXMp	|void	|_append_range_to_invlist   |NN SV* const invlist|const UV start|const UV end
 #ifdef PERL_IN_REGCOMP_C
 EiMR	|SV*	|add_cp_to_invlist	|NULLOK SV* invlist|const UV cp
 EsMR	|SV*	|add_range_to_invlist	|NULLOK SV* invlist|const UV start|const UV end
@@ -1326,6 +1324,10 @@ EpM	|void	|_invlist_intersection	|NN SV* const a|NN SV* const b|NN SV** i
 EpM	|void	|_invlist_union	|NN SV* const a|NN SV* const b|NN SV** output
 EpM	|void	|_invlist_subtract|NN SV* const a|NN SV* const b|NN SV** result
 EpM	|void	|_invlist_invert|NN SV* const invlist
+EXMpR	|HV*	|_swash_inversion_hash	|NN SV* const swash
+EXMpR	|SV*	|_new_invlist	|IV initial_size
+EXMpR	|SV*	|_swash_to_invlist	|NN SV* const swash
+EXMp	|void	|_append_range_to_invlist   |NN SV* const invlist|const UV start|const UV end
 #endif
 Ap	|void	|taint_env
 Ap	|void	|taint_proper	|NULLOK const char* f|NN const char *const s