diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-27 09:24:12 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-11-22 21:13:58 -0700 |
commit | 5c27e8a20ea252ce05ec050d1c3b2117a35067b0 (patch) | |
tree | 0782477e2af4b6224c22ccd6ebd91b5249d0c800 | |
parent | 4c29eb71ff3f0996f907fcc484a329bb673f3606 (diff) | |
download | perl-5c27e8a20ea252ce05ec050d1c3b2117a35067b0.tar.gz |
perlapi: Note proper rplcemnt for pad_compname_type
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | embed.h | 3 | ||||
-rw-r--r-- | mathoms.c | 2 | ||||
-rw-r--r-- | proto.h | 1 |
4 files changed, 7 insertions, 1 deletions
@@ -3418,7 +3418,7 @@ Apd |CV* |cv_clone |NN CV* proto p |CV* |cv_clone_into |NN CV* proto|NN CV *target pd |void |pad_fixup_inner_anons|NN PADLIST *padlist|NN CV *old_cv|NN CV *new_cv pdX |void |pad_push |NN PADLIST *padlist|int depth -ApbdRM |HV* |pad_compname_type|const PADOFFSET po +ApbdDR |HV* |pad_compname_type|const PADOFFSET po AxpdRT |PADNAME *|padnamelist_fetch|NN PADNAMELIST *pnl|SSize_t key Xop |void |padnamelist_free|NN PADNAMELIST *pnl Axpd |PADNAME **|padnamelist_store|NN PADNAMELIST *pnl|SSize_t key \ @@ -421,6 +421,9 @@ #define pad_add_name_pvn(a,b,c,d,e) Perl_pad_add_name_pvn(aTHX_ a,b,c,d,e) #define pad_add_name_sv(a,b,c,d) Perl_pad_add_name_sv(aTHX_ a,b,c,d) #define pad_alloc(a,b) Perl_pad_alloc(aTHX_ a,b) +#ifndef NO_MATHOMS +#define pad_compname_type(a) Perl_pad_compname_type(aTHX_ a) +#endif #define pad_findmy_pv(a,b) Perl_pad_findmy_pv(aTHX_ a,b) #define pad_findmy_pvn(a,b,c) Perl_pad_findmy_pvn(aTHX_ a,b,c) #define pad_findmy_sv(a,b) Perl_pad_findmy_sv(aTHX_ a,b) @@ -1261,6 +1261,8 @@ Looks up the type of the lexical variable at position C<po> in the currently-compiling pad. If the variable is typed, the stash of the class to which it is typed is returned. If not, C<NULL> is returned. +Use L<perlintern/C<PAD_COMPNAME_TYPE>> instead. + =cut */ @@ -2625,6 +2625,7 @@ PERL_CALLCONV void Perl_pad_block_start(pTHX_ int full); #define PERL_ARGS_ASSERT_PAD_BLOCK_START #ifndef NO_MATHOMS PERL_CALLCONV HV* Perl_pad_compname_type(pTHX_ const PADOFFSET po) + __attribute__deprecated__ __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_PAD_COMPNAME_TYPE #endif |