Tidy up lists of 'our' variables.

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index b545bd3..a812200 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -375,7 +375,6 @@
 #define op_dump(a)             Perl_op_dump(aTHX_ a)
 #define op_free(a)             Perl_op_free(aTHX_ a)
 #define op_linklist(a)         Perl_op_linklist(aTHX_ a)
-#define op_lvalue(a,b)         Perl_op_lvalue(aTHX_ a,b)
 #define op_null(a)             Perl_op_null(aTHX_ a)
 #define op_prepend_elem(a,b,c) Perl_op_prepend_elem(aTHX_ a,b,c)
 #define op_refcnt_lock()       Perl_op_refcnt_lock(aTHX)
@@ -670,6 +669,7 @@
 #ifndef PERL_IMPLICIT_CONTEXT
 #define warner                 Perl_warner
 #endif
+#define was_lvalue_sub()       Perl_was_lvalue_sub(aTHX)
 #define whichsig(a)            Perl_whichsig(aTHX_ a)
 #if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
 #define csighandler            Perl_csighandler
@@ -816,10 +816,6 @@
 #define do_spawn_nowait(a)     Perl_do_spawn_nowait(aTHX_ a)
 #endif
 #if defined(PERL_CORE) || defined(PERL_EXT)
-#define _append_range_to_invlist(a,b,c)        Perl__append_range_to_invlist(aTHX_ a,b,c)
-#define _new_invlist(a)                Perl__new_invlist(aTHX_ a)
-#define _swash_inversion_hash(a)       Perl__swash_inversion_hash(aTHX_ a)
-#define _swash_to_invlist(a)   Perl__swash_to_invlist(aTHX_ a)
 #define av_reify(a)            Perl_av_reify(aTHX_ a)
 #define is_utf8_X_L(a)         Perl_is_utf8_X_L(aTHX_ a)
 #define is_utf8_X_LV(a)                Perl_is_utf8_X_LV(aTHX_ a)
@@ -866,6 +862,7 @@
 #define regcurly(a)            S_regcurly(aTHX_ a)
 #  endif
 #  if defined(PERL_IN_REGCOMP_C)
+#define _invlist_array_init(a,b)       S__invlist_array_init(aTHX_ a,b)
 #define add_alternate(a,b,c)   S_add_alternate(aTHX_ a,b,c)
 #define add_cp_to_invlist(a,b) S_add_cp_to_invlist(aTHX_ a,b)
 #define add_data               S_add_data
@@ -876,17 +873,18 @@
 #define cl_init                        S_cl_init
 #define cl_is_anything         S_cl_is_anything
 #define cl_or                  S_cl_or
+#define get_invlist_iter_addr(a)       S_get_invlist_iter_addr(aTHX_ a)
+#define get_invlist_len_addr(a)        S_get_invlist_len_addr(aTHX_ a)
+#define get_invlist_zero_addr(a)       S_get_invlist_zero_addr(aTHX_ a)
 #define invlist_array(a)       S_invlist_array(aTHX_ a)
-#define invlist_destroy(a)     S_invlist_destroy(aTHX_ a)
+#define invlist_clone(a)       S_invlist_clone(aTHX_ a)
 #define invlist_extend(a,b)    S_invlist_extend(aTHX_ a,b)
-#define invlist_intersection(a,b)      S_invlist_intersection(aTHX_ a,b)
+#define invlist_iterinit(a)    S_invlist_iterinit(aTHX_ a)
+#define invlist_iternext(a,b,c)        S_invlist_iternext(aTHX_ a,b,c)
 #define invlist_len(a)         S_invlist_len(aTHX_ a)
 #define invlist_max(a)         S_invlist_max(aTHX_ a)
-#define invlist_set_array(a,b) S_invlist_set_array(aTHX_ a,b)
 #define invlist_set_len(a,b)   S_invlist_set_len(aTHX_ a,b)
-#define invlist_set_max(a,b)   S_invlist_set_max(aTHX_ a,b)
 #define invlist_trim(a)                S_invlist_trim(aTHX_ a)
-#define invlist_union(a,b)     S_invlist_union(aTHX_ a,b)
 #define join_exact(a,b,c,d,e,f)        S_join_exact(aTHX_ a,b,c,d,e,f)
 #define make_trie(a,b,c,d,e,f,g,h)     S_make_trie(aTHX_ a,b,c,d,e,f,g,h)
 #define make_trie_failtable(a,b,c,d)   S_make_trie_failtable(aTHX_ a,b,c,d)
@@ -912,6 +910,16 @@
 #define set_regclass_bit_fold(a,b,c,d,e)       S_set_regclass_bit_fold(aTHX_ a,b,c,d,e)
 #define study_chunk(a,b,c,d,e,f,g,h,i,j,k)     S_study_chunk(aTHX_ a,b,c,d,e,f,g,h,i,j,k)
 #  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C)
+#define _append_range_to_invlist(a,b,c)        Perl__append_range_to_invlist(aTHX_ a,b,c)
+#define _invlist_intersection(a,b,c)   Perl__invlist_intersection(aTHX_ a,b,c)
+#define _invlist_invert(a)     Perl__invlist_invert(aTHX_ a)
+#define _invlist_subtract(a,b,c)       Perl__invlist_subtract(aTHX_ a,b,c)
+#define _invlist_union(a,b,c)  Perl__invlist_union(aTHX_ a,b,c)
+#define _new_invlist(a)                Perl__new_invlist(aTHX_ a)
+#define _swash_inversion_hash(a)       Perl__swash_inversion_hash(aTHX_ a)
+#define _swash_to_invlist(a)   Perl__swash_to_invlist(aTHX_ a)
+#  endif
 #  if defined(PERL_IN_REGEXEC_C)
 #define find_byclass(a,b,c,d,e)        S_find_byclass(aTHX_ a,b,c,d,e)
 #define reg_check_named_buff_matched(a,b)      S_reg_check_named_buff_matched(aTHX_ a,b)
@@ -1000,6 +1008,7 @@
 #define do_dump_pad(a,b,c,d)   Perl_do_dump_pad(aTHX_ a,b,c,d)
 #define do_eof(a)              Perl_do_eof(aTHX_ a)
 #define do_execfree()          Perl_do_execfree(aTHX)
+#define do_ncmp(a,b)           Perl_do_ncmp(aTHX_ a,b)
 #define do_print(a,b)          Perl_do_print(aTHX_ a,b)
 #define do_readline()          Perl_do_readline(aTHX)
 #define do_seek(a,b,c)         Perl_do_seek(aTHX_ a,b,c)
@@ -1382,6 +1391,7 @@
 #define refto(a)               S_refto(aTHX_ a)
 #  endif
 #  if defined(PERL_IN_PP_CTL_C)
+#define adjust_stack_on_leave(a,b,c,d,e)       S_adjust_stack_on_leave(aTHX_ a,b,c,d,e)
 #define check_type_and_open(a) S_check_type_and_open(aTHX_ a)
 #define destroy_matcher(a)     S_destroy_matcher(aTHX_ a)
 #define do_smartmatch(a,b)     S_do_smartmatch(aTHX_ a,b)