This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove M flag from several functions
authorKarl Williamson <khw@cpan.org>
Sat, 31 Aug 2019 22:55:45 +0000 (16:55 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 3 Sep 2019 03:52:12 +0000 (21:52 -0600)
These do have an extra macro, but it's not relevant to the situation

embed.fnc
embed.h
proto.h

index 8ed6210..e512828 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -779,7 +779,7 @@ Ap  |void*  |hv_common      |NULLOK HV *hv|NULLOK SV *keysv \
 Ap     |void*  |hv_common_key_len|NULLOK HV *hv|NN const char *key \
                                |I32 klen_i32|const int action|NULLOK SV *val \
                                |const U32 hash
-AMpod  |STRLEN |hv_fill        |NN HV *const hv
+Apod   |STRLEN |hv_fill        |NN HV *const hv
 Ap     |void   |hv_free_ent    |NN HV *hv|NULLOK HE *entry
 Apd    |I32    |hv_iterinit    |NN HV *hv
 ApdR   |char*  |hv_iterkey     |NN HE* entry|NN I32* retlen
@@ -3336,10 +3336,10 @@ p       |void   |boot_core_mro
 ApoT   |void   |sys_init       |NN int* argc|NN char*** argv
 ApoT   |void   |sys_init3      |NN int* argc|NN char*** argv|NN char*** env
 ApoT   |void   |sys_term
-AMpxd  |const char *|cop_fetch_label|NN COP *const cop \
+Apxd   |const char *|cop_fetch_label|NN COP *const cop \
                |NULLOK STRLEN *len|NULLOK U32 *flags
 : Only used  in op.c and the perl compiler
-AMpxd  |void|cop_store_label \
+Apxd   |void|cop_store_label \
                |NN COP *const cop|NN const char *label|STRLEN len|U32 flags
 
 epo    |int    |keyword_plugin_standard|NN char* keyword_ptr|STRLEN keyword_len|NN OP** op_ptr
diff --git a/embed.h b/embed.h
index 3ae13fb..1c154c2 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -93,6 +93,8 @@
 #define ck_warner_d            Perl_ck_warner_d
 #endif
 #define clear_defarray(a,b)    Perl_clear_defarray(aTHX_ a,b)
+#define cop_fetch_label(a,b,c) Perl_cop_fetch_label(aTHX_ a,b,c)
+#define cop_store_label(a,b,c,d)       Perl_cop_store_label(aTHX_ a,b,c,d)
 #ifndef PERL_IMPLICIT_CONTEXT
 #define croak                  Perl_croak
 #endif
diff --git a/proto.h b/proto.h
index fffad8f..fcd1bba 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2847,9 +2847,6 @@ PERL_CALLCONV void*       Perl_reentrant_retry(const char *f, ...);
 #define PERL_ARGS_ASSERT_REENTRANT_RETRY       \
        assert(f)
 PERL_CALLCONV void     Perl_reentrant_size(pTHX);
-#ifndef NO_MATHOMS
-PERL_CALLCONV OP*      Perl_ref(pTHX_ OP* o, I32 type);
-#endif
 PERL_CALLCONV HV *     Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *c, U32 flags);
 PERL_CALLCONV SV *     Perl_refcounted_he_fetch_pv(pTHX_ const struct refcounted_he *chain, const char *key, U32 hash, U32 flags);
 #define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_PV        \
@@ -5237,6 +5234,11 @@ STATIC PADOFFSET S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 fla
        assert(namepv); assert(cv); assert(out_name); assert(out_flags)
 STATIC void    S_pad_reset(pTHX);
 #endif
+#if defined(PERL_IN_PERLY_C) || defined(PERL_IN_OP_C) || defined(PERL_IN_TOKE_C)
+#ifndef NO_MATHOMS
+PERL_CALLCONV OP*      Perl_ref(pTHX_ OP* o, I32 type);
+#endif
+#endif
 #if defined(PERL_IN_PERL_C)
 STATIC void    S_find_beginning(pTHX_ SV* linestr_sv, PerlIO *rsfp);
 #define PERL_ARGS_ASSERT_FIND_BEGINNING        \