This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Make some functions not flagged as 'A'
authorKarl Williamson <khw@cpan.org>
Sun, 11 Dec 2016 03:24:15 +0000 (20:24 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 11 Dec 2016 21:33:47 +0000 (14:33 -0700)
As explained in the previous commit, I misunderstood the available scope
of functions not otherwise qualified by a flag.  This changes some of
them to correspond with my new understanding.

embed.fnc
embed.h

index 23e500a..0b85259 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1262,7 +1262,7 @@ ApM       |SV*    |regclass_swash |NULLOK const regexp *prog \
                                |NN const struct regnode *node|bool doinit \
                                |NULLOK SV **listsvp|NULLOK SV **altsvp
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) || defined(PERL_IN_UTF8_C)
-AMpR   |SV*    |_new_invlist_C_array|NN const UV* const list
+EXpR   |SV*    |_new_invlist_C_array|NN const UV* const list
 EXMp   |bool   |_invlistEQ     |NN SV* const a|NN SV* const b|const bool complement_b
 #endif
 Ap     |I32    |pregexec       |NN REGEXP * const prog|NN char* stringarg \
@@ -1609,8 +1609,8 @@ Apd       |void   |sv_vsetpvfn    |NN SV *const sv|NN const char *const pat|const STRLEN pa
                                |NULLOK va_list *const args|NULLOK SV **const svargs \
                                |const I32 svmax|NULLOK bool *const maybe_tainted
 ApR    |NV     |str_to_version |NN SV *sv
-ApRM   |SV*    |swash_init     |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
-ApM    |UV     |swash_fetch    |NN SV *swash|NN const U8 *ptr|bool do_utf8
+EpRM   |SV*    |swash_init     |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
+EpM    |UV     |swash_fetch    |NN SV *swash|NN const U8 *ptr|bool do_utf8
 #ifdef PERL_IN_REGCOMP_C
 EiMR   |SV*    |add_cp_to_invlist      |NULLOK SV* invlist|const UV cp
 EiM    |void   |invlist_set_len|NN SV* const invlist|const UV len|const bool offset
@@ -1670,7 +1670,7 @@ EXMpR     |SV*    |_get_swash_invlist|NN SV* const swash
 EXMpR  |HV*    |_swash_inversion_hash  |NN SV* const swash
 #endif
 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-ApM    |SV*    |_get_regclass_nonbitmap_data                              \
+EXpM   |SV*    |_get_regclass_nonbitmap_data                              \
                                |NULLOK const regexp *prog                 \
                                |NN const struct regnode *node             \
                                |bool doinit                               \
@@ -2718,7 +2718,7 @@ sRM       |U8*    |swash_scan_list_line|NN U8* l|NN U8* const lend|NN UV* min \
 #endif
 
 #ifndef PERL_NO_INLINE_FUNCTIONS
-AiMn   |void   |append_utf8_from_native_byte|const U8 byte|NN U8** dest
+EXiMn  |void   |append_utf8_from_native_byte|const U8 byte|NN U8** dest
 #endif
 
 Apd    |void   |sv_set_undef   |NN SV *sv
diff --git a/embed.h b/embed.h
index 6061d55..2ea48e3 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define sv_vsetpvf(a,b,c)      Perl_sv_vsetpvf(aTHX_ a,b,c)
 #define sv_vsetpvf_mg(a,b,c)   Perl_sv_vsetpvf_mg(aTHX_ a,b,c)
 #define sv_vsetpvfn(a,b,c,d,e,f,g)     Perl_sv_vsetpvfn(aTHX_ a,b,c,d,e,f,g)
-#define swash_fetch(a,b,c)     Perl_swash_fetch(aTHX_ a,b,c)
-#define swash_init(a,b,c,d,e)  Perl_swash_init(aTHX_ a,b,c,d,e)
 #define sync_locale()          Perl_sync_locale(aTHX)
 #define taint_env()            Perl_taint_env(aTHX)
 #define taint_proper(a,b)      Perl_taint_proper(aTHX_ a,b)
 #endif
 #if !defined(PERL_NO_INLINE_FUNCTIONS)
 #define _is_utf8_char_helper   Perl__is_utf8_char_helper
-#define append_utf8_from_native_byte   S_append_utf8_from_native_byte
 #define av_top_index(a)                S_av_top_index(aTHX_ a)
 #define cx_popblock(a)         S_cx_popblock(aTHX_ a)
 #define cx_popeval(a)          S_cx_popeval(aTHX_ a)
 #define warn_nocontext         Perl_warn_nocontext
 #define warner_nocontext       Perl_warner_nocontext
 #endif
-#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) || defined(PERL_IN_UTF8_C)
-#define _new_invlist_C_array(a)        Perl__new_invlist_C_array(aTHX_ a)
-#endif
-#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
-#define _get_regclass_nonbitmap_data(a,b,c,d,e,f)      Perl__get_regclass_nonbitmap_data(aTHX_ a,b,c,d,e,f)
-#endif
 #if defined(PERL_OP_PARENT)
 #define op_parent              Perl_op_parent
 #endif
 #define reg_temp_copy(a,b)     Perl_reg_temp_copy(aTHX_ a,b)
 #define report_uninit(a)       Perl_report_uninit(aTHX_ a)
 #define sv_magicext_mglob(a)   Perl_sv_magicext_mglob(aTHX_ a)
+#define swash_fetch(a,b,c)     Perl_swash_fetch(aTHX_ a,b,c)
+#define swash_init(a,b,c,d,e)  Perl_swash_init(aTHX_ a,b,c,d,e)
 #define validate_proto(a,b,c)  Perl_validate_proto(aTHX_ a,b,c)
 #define vivify_defelem(a)      Perl_vivify_defelem(aTHX_ a)
 #define yylex()                        Perl_yylex(aTHX)
 #    endif
 #  endif
 #  if !defined(PERL_NO_INLINE_FUNCTIONS)
+#define append_utf8_from_native_byte   S_append_utf8_from_native_byte
 #define sv_only_taint_gmagic   S_sv_only_taint_gmagic
 #  endif
 #  if defined(DEBUGGING)
 #  endif
 #  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) || defined(PERL_IN_UTF8_C)
 #define _invlistEQ(a,b,c)      Perl__invlistEQ(aTHX_ a,b,c)
+#define _new_invlist_C_array(a)        Perl__new_invlist_C_array(aTHX_ a)
 #  endif
 #  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+#define _get_regclass_nonbitmap_data(a,b,c,d,e,f)      Perl__get_regclass_nonbitmap_data(aTHX_ a,b,c,d,e,f)
 #define _load_PL_utf8_foldclosures()   Perl__load_PL_utf8_foldclosures(aTHX)
 #ifndef PERL_IMPLICIT_CONTEXT
 #define re_printf              Perl_re_printf