Tidy up lists of 'our' variables.

[perl5.git] / embed.h

diff --git a/embed.h b/embed.h
index 19d641b..a812200 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -669,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
@@ -815,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,10 +863,6 @@
 #  endif
 #  if defined(PERL_IN_REGCOMP_C)
 #define _invlist_array_init(a,b)       S__invlist_array_init(aTHX_ a,b)
-#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 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
@@ -917,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)