In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/45f8e7b102987a417bf55438e858cedced8aedbe?hp=37a31bc00de5ccc6f9483ef0da322b4a5bc1cf32>

- Log -----------------------------------------------------------------
commit 45f8e7b102987a417bf55438e858cedced8aedbe
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:35:55 2019 -0600

    autodoc.pl: Forget heuristics, we have a flag
    
    We know if something is a macro because of the 'm' flag.  Don't use the
    fallible heuristics to try to determine this.

commit 5514c4f10ad12603528732f1bd16d15059a26369
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:33:19 2019 -0600

    autodoc.pl: Warn if entry missing d flag but has docs
    
    If you have documention, you're supposed to say so, so that the tools
    will work properly.

commit c1a02ccad9a1ea91206b97e66056ee354ac761c1
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:26:13 2019 -0600

    embed.fnc: Note functions that have documentation
    
    A bunch of functions actually were documented, but this fact was omitted
    in embed.fnc.

commit e7a3fd4551b610f58191be5da1b4d5115764196a
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:20:51 2019 -0600

    numeric.c: Fix typo in pod

commit 64b17d72ab60bb973e984405dc7b8d6e4fc28f33
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:19:15 2019 -0600

    embed.fnc: Fix typo in comment

commit 314fdcc2b4257d30d345c7fae7817f4ff3be6d30
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:16:03 2019 -0600

    pad.h: Parameters to many functions are ptrs
    
    The apidoc entries for 22 functions forgot that the parameters were
    pointers to the type.  Since these are macros, this error wasn't caught
    until Devel::PPPort tried to generate a test case for them.

commit 1c82f4a4016157d0afef2226cee4c2b93adfd81e
Author: Karl Williamson <[email protected]>
Date:   Wed Jul 31 13:37:09 2019 -0600

    autodoc.pl: Fix typo in comment

-----------------------------------------------------------------------

Summary of changes:
 autodoc.pl | 23 ++++--------------
 embed.fnc  | 78 +++++++++++++++++++++++++++++++-------------------------------
 numeric.c  |  2 +-
 pad.h      | 44 +++++++++++++++++------------------
 4 files changed, 67 insertions(+), 80 deletions(-)

diff --git a/autodoc.pl b/autodoc.pl
index c72861accb..d2875d25cc 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -44,12 +44,6 @@ require './regen/embed_lib.pl';
 
 my %docs;
 my %funcflags;
-my %macro = (
-             ax => 1,
-             items => 1,
-             ix => 1,
-             svtype => 1,
-            );
 my %missing;
 
 my $curheader = "Unknown section";
@@ -63,16 +57,11 @@ sub autodoc ($$) { # parse a file and extract documentation 
info
 
 FUNC:
     while (defined($in = $get_next_line->())) {
-        if ($in =~ /^#\s*define\s+([A-Za-z_][A-Za-z_0-9]+)\(/ &&
-            ($file ne 'embed.h' || $file ne 'proto.h')) {
-            $macro{$1} = $file;
-            next FUNC;
-        }
         if ($in=~ /^=head1 (.*)/) {
             $curheader = $1;
 
             # If the next non-space line begins with a word char, then it is
-            # the start of heading-ldevel documentation.
+            # the start of heading-level documentation.
             if (defined($doc = $get_next_line->())) {
                 # Skip over empty lines
                 while ($doc =~ /^\s+$/) {
@@ -143,9 +132,12 @@ DOC:
                 warn "embed.fnc entry overrides redundant information in"
                    . " '$proto_in_file' in $file" if $flags || $ret || @args;
                 $flags = $embed_docref->{'flags'};
+                warn "embed.fnc entry '$name' missing 'd' flag"
+                                                            unless $flags =~ 
/d/;
                 $ret = $embed_docref->{'retval'};
                 @args = @{$embed_docref->{args}};
-            } else {
+            } elsif ($flags !~ /m/)  { # Not in embed.fnc, is missing if not a
+                                       # macro
                 $missing{$name} = $file;
             }
 
@@ -369,11 +361,6 @@ for (sort keys %funcflags) {
 }
 
 foreach (sort keys %missing) {
-    next if $macro{$_};
-    # Heuristics for known not-a-function macros:
-    next if /^[A-Z]/;
-    next if /^dj?[A-Z]/;
-
     warn "Function '$_', documented in $missing{$_}, not listed in embed.fnc";
 }
 
diff --git a/embed.fnc b/embed.fnc
index 89474e87ca..01e25befda 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -113,8 +113,8 @@
 :
 :   d  Function has documentation (somewhere) in the source:
 :
-:         enables 'no docs for foo" warning in autodoc.pl in the documentation
-:         isn't found
+:         enables 'no docs for foo" warning in autodoc.pl if the documentation
+:         isn't found.
 :
 :   E  Visible to extensions included in the Perl core:
 :
@@ -428,7 +428,7 @@ AbfTp       |int    |fprintf_nocontext|NN PerlIO *stream|NN 
const char *format|...
 AbfTp  |int    |printf_nocontext|NN const char *format|...
 #endif
 : Used in pp.c
-p      |SV *   |core_prototype |NULLOK SV *sv|NN const char *name \
+pd     |SV *   |core_prototype |NULLOK SV *sv|NN const char *name \
                                |const int code|NULLOK int * const opnum
 : Used in gv.c
 p      |OP *   |coresub_op     |NN SV *const coreargssv|const int code \
@@ -444,7 +444,7 @@ pRT |SV*    |cv_const_sv_or_av|NULLOK const CV *const cv
 Apd    |SV *   |cv_name        |NN CV *cv|NULLOK SV *sv|U32 flags
 Apd    |void   |cv_undef       |NN CV* cv
 p      |void   |cv_undef_flags |NN CV* cv|U32 flags
-p      |void   |cv_forget_slab |NULLOK CV *cv
+pd     |void   |cv_forget_slab |NULLOK CV *cv
 Ap     |void   |cx_dump        |NN PERL_CONTEXT* cx
 Ap     |SV*    |filter_add     |NULLOK filter_t funcp|NULLOK SV* datasv
 Ap     |void   |filter_del     |NN filter_t funcp
@@ -600,15 +600,15 @@ p |void   |do_vop         |I32 optype|NN SV* sv|NN SV* 
left|NN SV* right
 : Used in perly.y
 p      |OP*    |dofile         |NN OP* term|I32 force_builtin
 ApR    |U8     |dowantarray
-Ap     |void   |dump_all
+Adp    |void   |dump_all
 p      |void   |dump_all_perl  |bool justperl
 Ap     |void   |dump_eval
 Ap     |void   |dump_form      |NN const GV* gv
 Ap     |void   |gv_dump        |NULLOK GV* gv
 Apd    |OPclass|op_class       |NULLOK const OP *o
-Ap     |void   |op_dump        |NN const OP *o
+Apd    |void   |op_dump        |NN const OP *o
 Ap     |void   |pmop_dump      |NULLOK PMOP* pm
-Ap     |void   |dump_packsubs  |NN const HV* stash
+Apd    |void   |dump_packsubs  |NN const HV* stash
 p      |void   |dump_packsubs_perl     |NN const HV* stash|bool justperl
 Ap     |void   |dump_sub       |NN const GV* gv
 p      |void   |dump_sub_perl  |NN const GV* gv|bool justperl
@@ -630,7 +630,7 @@ i   |OP*    |newMETHOP_internal     |I32 type|I32 
flags|NULLOK OP* dynamic_meth \
                                        |NULLOK SV* const_meth
 : FIXME
 S      |OP*    |fold_constants |NN OP * const o
-S      |OP*    |traverse_op_tree|NN OP* top|NN OP* o
+Sd     |OP*    |traverse_op_tree|NN OP* top|NN OP* o
 #endif
 Afpd   |char*  |form           |NN const char* pat|...
 Ap     |char*  |vform          |NN const char* pat|NULLOK va_list* args
@@ -698,10 +698,10 @@ poX       |GV *   |cvgv_from_hek  |NN CV* cv
 pX     |void   |cvstash_set    |NN CV* cv|NULLOK HV* stash
 Amd    |void   |gv_init        |NN GV* gv|NULLOK HV* stash \
                                 |NN const char* name|STRLEN len|int multi
-Ap     |void   |gv_init_sv     |NN GV* gv|NULLOK HV* stash|NN SV* namesv|U32 
flags
-Ap     |void   |gv_init_pv     |NN GV* gv|NULLOK HV* stash|NN const char* name 
\
+Apd    |void   |gv_init_sv     |NN GV* gv|NULLOK HV* stash|NN SV* namesv|U32 
flags
+Apd    |void   |gv_init_pv     |NN GV* gv|NULLOK HV* stash|NN const char* name 
\
                                 |U32 flags
-Ap     |void   |gv_init_pvn    |NN GV* gv|NULLOK HV* stash|NN const char* name 
\
+Apd    |void   |gv_init_pvn    |NN GV* gv|NULLOK HV* stash|NN const char* name 
\
                                 |STRLEN len|U32 flags
 Ap     |void   |gv_name_set    |NN GV* gv|NN const char *name|U32 len|U32 flags
 pe     |GV *   |gv_override    |NN const char * const name \
@@ -778,10 +778,10 @@ Apbmx     |SV**   |hv_store_flags |NULLOK HV *hv|NULLOK 
const char *key \
                                |I32 klen|NULLOK SV *val|U32 hash|int flags
 Amd    |void   |hv_undef       |NULLOK HV *hv
 poX    |void   |hv_undef_flags |NULLOK HV *hv|U32 flags
-AmP    |I32    |ibcmp          |NN const char* a|NN const char* b|I32 len
+AdmP   |I32    |ibcmp          |NN const char* a|NN const char* b|I32 len
 AdiTp  |I32    |foldEQ         |NN const char* a|NN const char* b|I32 len
-AmP    |I32    |ibcmp_locale   |NN const char* a|NN const char* b|I32 len
-AiTp   |I32    |foldEQ_locale  |NN const char* a|NN const char* b|I32 len
+AdmP   |I32    |ibcmp_locale   |NN const char* a|NN const char* b|I32 len
+AiTpd  |I32    |foldEQ_locale  |NN const char* a|NN const char* b|I32 len
 Am     |I32    |ibcmp_utf8     |NN const char *s1|NULLOK char **pe1|UV l1 \
                                |bool u1|NN const char *s2|NULLOK char **pe2 \
                                |UV l2|bool u2
@@ -881,7 +881,7 @@ ATidR       |bool   |is_utf8_invariant_string_loc|NN const 
U8* const s          \
 ATiR   |unsigned int|_variant_byte_number|PERL_UINTMAX_T word
 #endif
 #if defined(PERL_CORE) || defined(PERL_EXT)
-EiTR   |Size_t |variant_under_utf8_count|NN const U8* const s              \
+EiTRd  |Size_t |variant_under_utf8_count|NN const U8* const s              \
                |NN const U8* const e
 #endif
 AmTdRP |bool   |is_ascii_string|NN const U8* const s|STRLEN len
@@ -1060,7 +1060,7 @@ Apd       |int    |grok_number    |NN const char 
*pv|STRLEN len|NULLOK UV *valuep
 Apd    |int    |grok_number_flags|NN const char *pv|STRLEN len|NULLOK UV 
*valuep|U32 flags
 ApdR   |bool   |grok_numeric_radix|NN const char **sp|NN const char *send
 Apd    |UV     |grok_oct       |NN const char* start|NN STRLEN* len_p|NN I32* 
flags|NULLOK NV *result
-EXpT   |bool   |grok_atoUV     |NN const char* pv|NN UV* valptr|NULLOK const 
char** endptr
+EXpdT  |bool   |grok_atoUV     |NN const char* pv|NN UV* valptr|NULLOK const 
char** endptr
 : These are all indirectly referenced by globals.c. This is somewhat annoying.
 p      |int    |magic_clearenv |NN SV* sv|NN MAGIC* mg
 p      |int    |magic_clear_all_env|NN SV* sv|NN MAGIC* mg
@@ -1166,8 +1166,8 @@ Ap        |I32    |mg_size        |NN SV* sv
 ApT    |void   |mini_mktime    |NN struct tm *ptm
 Axmd   |OP*    |op_lvalue      |NULLOK OP* o|I32 type
 poX    |OP*    |op_lvalue_flags|NULLOK OP* o|I32 type|U32 flags
-p      |void   |finalize_optree                |NN OP* o
-p      |void   |optimize_optree|NN OP* o
+pd     |void   |finalize_optree                |NN OP* o
+pd     |void   |optimize_optree|NN OP* o
 #if defined(PERL_IN_OP_C)
 S      |void   |optimize_op    |NN OP* o
 S      |void   |finalize_op    |NN OP* o
@@ -1178,7 +1178,7 @@ S |void   |move_proto_attr|NN OP **proto|NN OP **attrs \
 p      |int    |mode_from_discipline|NULLOK const char* s|STRLEN len
 Ap     |const char*    |moreswitches   |NN const char* s
 Ap     |NV     |my_atof        |NN const char *s
-ATpR   |NV     |my_strtod      |NN const char * const s|NULLOK char ** e
+ATdpR  |NV     |my_strtod      |NN const char * const s|NULLOK char ** e
 Apr    |void   |my_exit        |U32 status
 Apr    |void   |my_failure_exit
 Ap     |I32    |my_fflush_all
@@ -1338,7 +1338,7 @@ p |void   |package_version|NN OP* v
 p      |PADOFFSET|allocmy      |NN const char *const name|const STRLEN len\
                                |const U32 flags
 #ifdef USE_ITHREADS
-Axp    |PADOFFSET|alloccopstash|NN HV *hv
+Adxp   |PADOFFSET|alloccopstash|NN HV *hv
 #endif
 : Used in perly.y
 pR     |OP*    |oopsAV         |NN OP* o
@@ -1654,7 +1654,7 @@ Apd       |char*  |sv_collxfrm_flags      |NN SV *const 
sv|NN STRLEN *const nxp|I32 const fl
 Apd    |int    |getcwd_sv      |NN SV* sv
 Apd    |void   |sv_dec         |NULLOK SV *const sv
 Apd    |void   |sv_dec_nomg    |NULLOK SV *const sv
-Ap     |void   |sv_dump        |NULLOK SV* sv
+Apd    |void   |sv_dump        |NULLOK SV* sv
 ApdR   |bool   |sv_derived_from|NN SV* sv|NN const char *const name
 ApdR   |bool   |sv_derived_from_sv|NN SV* sv|NN SV *namesv|U32 flags
 ApdR   |bool   |sv_derived_from_pv|NN SV* sv|NN const char *const name|U32 
flags
@@ -1955,8 +1955,8 @@ AxTp      |UV     |_utf8n_to_uvchr_msgs_helper            
                    \
                                |const U32 flags                            \
                                |NULLOK U32 * errors                        \
                                |NULLOK AV ** msgs
-AipTR  |UV     |valid_utf8_to_uvchr    |NN const U8 *s|NULLOK STRLEN *retlen
-Ap     |UV     |utf8n_to_uvuni|NN const U8 *s|STRLEN curlen|NULLOK STRLEN 
*retlen|U32 flags
+AipTRd |UV     |valid_utf8_to_uvchr    |NN const U8 *s|NULLOK STRLEN *retlen
+Adp    |UV     |utf8n_to_uvuni|NN const U8 *s|STRLEN curlen|NULLOK STRLEN 
*retlen|U32 flags
 
 Adm    |U8*    |uvchr_to_utf8  |NN U8 *d|UV uv
 Ap     |U8*    |uvuni_to_utf8  |NN U8 *d|UV uv
@@ -1964,7 +1964,7 @@ Adm       |U8*    |uvchr_to_utf8_flags    |NN U8 *d|UV 
uv|UV flags
 Admx   |U8*    |uvchr_to_utf8_flags_msgs|NN U8 *d|UV uv|UV flags|NULLOK HV ** 
msgs
 AMpod  |U8*    |uvoffuni_to_utf8_flags |NN U8 *d|UV uv|const UV flags
 Apx    |U8*    |uvoffuni_to_utf8_flags_msgs|NN U8 *d|UV uv|const UV 
flags|NULLOK HV** msgs
-Ap     |U8*    |uvuni_to_utf8_flags    |NN U8 *d|UV uv|UV flags
+Adp    |U8*    |uvuni_to_utf8_flags    |NN U8 *d|UV uv|UV flags
 Apd    |char*  |pv_uni_display |NN SV *dsv|NN const U8 *spv|STRLEN len|STRLEN 
pvlim|UV flags
 ApdR   |char*  |sv_uni_display |NN SV *dsv|NN SV *ssv|STRLEN pvlim|UV flags
 EXpR   |Size_t |_inverse_folds |const UV cp                                \
@@ -2014,7 +2014,7 @@ Ap        |I32    |whichsig_sv    |NN SV* sigsv
 Ap     |I32    |whichsig_pv    |NN const char* sig
 Ap     |I32    |whichsig_pvn   |NN const char* sig|STRLEN len
 : used to check for NULs in pathnames and other names
-AiR    |bool   |is_safe_syscall|NN const char *pv|STRLEN len|NN const char 
*what|NN const char *op_name
+AiRd   |bool   |is_safe_syscall|NN const char *pv|STRLEN len|NN const char 
*what|NN const char *op_name
 #ifdef PERL_CORE
 iTR    |bool   |should_warn_nl|NN const char *pv
 #endif
@@ -2171,11 +2171,11 @@ Ap      |void   |sys_intern_dup |NN struct 
interp_intern* src|NN struct interp_intern*
 #  endif
 #endif
 
-Amop   |const XOP *    |custom_op_xop  |NN const OP *o
-AbpR   |const char *   |custom_op_name |NN const OP *o
-AbpR   |const char *   |custom_op_desc |NN const OP *o
+Admop  |const XOP *    |custom_op_xop  |NN const OP *o
+AbpRd  |const char *   |custom_op_name |NN const OP *o
+AbpRd  |const char *   |custom_op_desc |NN const OP *o
 pRX    |XOPRETANY      |custom_op_get_field    |NN const OP *o|const 
xop_flags_enum field
-Aop    |void   |custom_op_register     |NN Perl_ppaddr_t ppaddr \
+Adop   |void   |custom_op_register     |NN Perl_ppaddr_t ppaddr \
                        |NN const XOP *xop
 
 Adp    |void   |sv_nosharing   |NULLOK SV *sv
@@ -2359,7 +2359,7 @@ STR       |char * |my_bytes_to_utf8|NN const U8 
*start|STRLEN len|NN char *dest \
 #endif
 
 #if defined(PERL_IN_PP_CTL_C)
-SR     |OP*    |docatch        |Perl_ppaddr_t firstpp
+SdR    |OP*    |docatch        |Perl_ppaddr_t firstpp
 SR     |OP*    |dofindlabel    |NN OP *o|NN const char *label|STRLEN len \
                                 |U32 flags|NN OP **opstack|NN OP **oplimit
 S      |MAGIC *|doparseform    |NN SV *sv
@@ -2879,7 +2879,7 @@ S |int    |tokereport     |I32 rv|NN const YYSTYPE* lvalp
 Sf     |void   |printbuf       |NN const char *const fmt|NN const char *const s
 #  endif
 #endif
-EXxp   |bool   |validate_proto |NN SV *name|NULLOK SV *proto|bool warn \
+EdXxp  |bool   |validate_proto |NN SV *name|NULLOK SV *proto|bool warn \
                |bool curstash
 
 #if defined(PERL_IN_UNIVERSAL_C)
@@ -2993,7 +2993,7 @@ Apd       |void   |sv_catsv_flags |NN SV *const 
dsv|NULLOK SV *const ssv|const I32 flags
 Amd    |STRLEN |sv_utf8_upgrade_flags|NN SV *const sv|const I32 flags
 Ap     |STRLEN |sv_utf8_upgrade_flags_grow|NN SV *const sv|const I32 
flags|STRLEN extra
 Apd    |char*  |sv_pvn_force_flags|NN SV *const sv|NULLOK STRLEN *const 
lp|const I32 flags
-Apmb   |void   |sv_copypv      |NN SV *const dsv|NN SV *const ssv
+Adpmb  |void   |sv_copypv      |NN SV *const dsv|NN SV *const ssv
 Apmd   |void   |sv_copypv_nomg |NN SV *const dsv|NN SV *const ssv
 Apd    |void   |sv_copypv_flags        |NN SV *const dsv|NN SV *const 
ssv|const I32 flags
 Apo    |char*  |my_atof2       |NN const char *orig|NN NV* value
@@ -3053,7 +3053,7 @@ ApdR      |PADLIST*|pad_new       |int flags
 pTX    |void|set_padlist| NN CV * cv | NULLOK PADLIST * padlist
 #endif
 #if defined(PERL_IN_PAD_C)
-S      |PADOFFSET|pad_alloc_name|NN PADNAME *name|U32 flags \
+Sd     |PADOFFSET|pad_alloc_name|NN PADNAME *name|U32 flags \
                                |NULLOK HV *typestash|NULLOK HV *ourstash
 #endif
 Apd    |PADOFFSET|pad_add_name_pvn|NN const char *namepv|STRLEN namelen\
@@ -3114,7 +3114,7 @@ Axpd      |PADNAME **|padnamelist_store|NN PADNAMELIST 
*pnl|SSize_t key \
 Xop    |void   |padname_free   |NN PADNAME *pn
 #if defined(USE_ITHREADS)
 pdR    |PADNAME *|padname_dup  |NN PADNAME *src|NN CLONE_PARAMS *param
-pR     |PADNAMELIST *|padnamelist_dup|NN PADNAMELIST *srcpad \
+pdR    |PADNAMELIST *|padnamelist_dup|NN PADNAMELIST *srcpad \
                                      |NN CLONE_PARAMS *param
 pdR    |PADLIST *|padlist_dup  |NN PADLIST *srcpad \
                                |NN CLONE_PARAMS *param
@@ -3145,9 +3145,9 @@ Apo       |void   |hv_riter_set   |NN HV *hv|I32 riter
 Apo    |void   |hv_eiter_set   |NN HV *hv|NULLOK HE *eiter
 Ap     |void   |hv_rand_set    |NN HV *hv|U32 new_xhv_rand
 Ap     |void   |hv_name_set    |NN HV *hv|NULLOK const char *name|U32 len|U32 
flags
-p      |void   |hv_ename_add   |NN HV *hv|NN const char *name|U32 len \
+pd     |void   |hv_ename_add   |NN HV *hv|NN const char *name|U32 len \
                                |U32 flags
-p      |void   |hv_ename_delete|NN HV *hv|NN const char *name|U32 len \
+pd     |void   |hv_ename_delete|NN HV *hv|NN const char *name|U32 len \
                                |U32 flags
 : Used in dump.c and hv.c
 pox    |AV**   |hv_backreferences_p    |NN HV *hv
@@ -3254,7 +3254,7 @@ Aop       |SV*    |mro_set_private_data|NN struct 
mro_meta *const smeta \
                                     |NN const struct mro_alg *const which \
                                     |NN SV *const data
 Aop    |const struct mro_alg *|mro_get_from_name|NN SV *name
-Aop    |void   |mro_register   |NN const struct mro_alg *mro
+Aopd   |void   |mro_register   |NN const struct mro_alg *mro
 Aop    |void   |mro_set_mro    |NN struct mro_meta *const meta \
                                |NN SV *const name
 : Used in HvMROMETA(), which is public.
@@ -3286,10 +3286,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
-AMpx   |const char *|cop_fetch_label|NN COP *const cop \
+AMpxd  |const char *|cop_fetch_label|NN COP *const cop \
                |NULLOK STRLEN *len|NULLOK U32 *flags
 : Only used  in op.c and the perl compiler
-AMpx   |void|cop_store_label \
+AMpxd  |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/numeric.c b/numeric.c
index 659b69e70a..f5eadc8173 100644
--- a/numeric.c
+++ b/numeric.c
@@ -90,7 +90,7 @@ It properly handles the locale radix character, meaning it 
expects a dot except
 when called from within the scope of S<C<use locale>>, in which case the radix
 character should be that specified by the current locale.
 
-The synonym Strod() may be used instead.
+The synonym Strtod() may be used instead.
 
 =cut
 
diff --git a/pad.h b/pad.h
index 976dc058d4..1c15d58dc2 100644
--- a/pad.h
+++ b/pad.h
@@ -179,79 +179,79 @@ C<my>)
 save C<PL_comppad> and C<PL_curpad>
 
 
-=for apidoc Amx|PAD **|PadlistARRAY|PADLIST padlist
+=for apidoc Amx|PAD **|PadlistARRAY|PADLIST * padlist
 The C array of a padlist, containing the pads.  Only subscript it with
 numbers >= 1, as the 0th entry is not guaranteed to remain usable.
 
-=for apidoc Amx|SSize_t|PadlistMAX|PADLIST padlist
+=for apidoc Amx|SSize_t|PadlistMAX|PADLIST * padlist
 The index of the last allocated space in the padlist.  Note that the last
 pad may be in an earlier slot.  Any entries following it will be C<NULL> in
 that case.
 
-=for apidoc Amx|PADNAMELIST *|PadlistNAMES|PADLIST padlist
+=for apidoc Amx|PADNAMELIST *|PadlistNAMES|PADLIST * padlist
 The names associated with pad entries.
 
-=for apidoc Amx|PADNAME **|PadlistNAMESARRAY|PADLIST padlist
+=for apidoc Amx|PADNAME **|PadlistNAMESARRAY|PADLIST * padlist
 The C array of pad names.
 
-=for apidoc Amx|SSize_t|PadlistNAMESMAX|PADLIST padlist
+=for apidoc Amx|SSize_t|PadlistNAMESMAX|PADLIST * padlist
 The index of the last pad name.
 
-=for apidoc Amx|U32|PadlistREFCNT|PADLIST padlist
+=for apidoc Amx|U32|PadlistREFCNT|PADLIST * padlist
 The reference count of the padlist.  Currently this is always 1.
 
-=for apidoc Amx|PADNAME **|PadnamelistARRAY|PADNAMELIST pnl
+=for apidoc Amx|PADNAME **|PadnamelistARRAY|PADNAMELIST * pnl
 The C array of pad names.
 
-=for apidoc Amx|SSize_t|PadnamelistMAX|PADNAMELIST pnl
+=for apidoc Amx|SSize_t|PadnamelistMAX|PADNAMELIST * pnl
 The index of the last pad name.
 
-=for apidoc Amx|SSize_t|PadnamelistREFCNT|PADNAMELIST pnl
+=for apidoc Amx|SSize_t|PadnamelistREFCNT|PADNAMELIST * pnl
 The reference count of the pad name list.
 
-=for apidoc Amx|void|PadnamelistREFCNT_dec|PADNAMELIST pnl
+=for apidoc Amx|void|PadnamelistREFCNT_dec|PADNAMELIST * pnl
 Lowers the reference count of the pad name list.
 
-=for apidoc Amx|SV **|PadARRAY|PAD pad
+=for apidoc Amx|SV **|PadARRAY|PAD * pad
 The C array of pad entries.
 
-=for apidoc Amx|SSize_t|PadMAX|PAD pad
+=for apidoc Amx|SSize_t|PadMAX|PAD * pad
 The index of the last pad entry.
 
-=for apidoc Amx|char *|PadnamePV|PADNAME pn    
+=for apidoc Amx|char *|PadnamePV|PADNAME * pn
 The name stored in the pad name struct.  This returns C<NULL> for a target
 slot.
 
-=for apidoc Amx|STRLEN|PadnameLEN|PADNAME pn   
+=for apidoc Amx|STRLEN|PadnameLEN|PADNAME * pn
 The length of the name.
 
-=for apidoc Amx|bool|PadnameUTF8|PADNAME pn
+=for apidoc Amx|bool|PadnameUTF8|PADNAME * pn
 Whether PadnamePV is in UTF-8.  Currently, this is always true.
 
-=for apidoc Amx|SV *|PadnameSV|PADNAME pn
+=for apidoc Amx|SV *|PadnameSV|PADNAME * pn
 Returns the pad name as a mortal SV.
 
-=for apidoc m|bool|PadnameIsOUR|PADNAME pn
+=for apidoc m|bool|PadnameIsOUR|PADNAME * pn
 Whether this is an "our" variable.
 
 =for apidoc m|HV *|PadnameOURSTASH
 The stash in which this "our" variable was declared.
 
-=for apidoc m|bool|PadnameOUTER|PADNAME pn
+=for apidoc m|bool|PadnameOUTER|PADNAME * pn
 Whether this entry belongs to an outer pad.  Entries for which this is true
 are often referred to as 'fake'.
 
-=for apidoc m|bool|PadnameIsSTATE|PADNAME pn
+=for apidoc m|bool|PadnameIsSTATE|PADNAME * pn
 Whether this is a "state" variable.
 
-=for apidoc m|HV *|PadnameTYPE|PADNAME pn
+=for apidoc m|HV *|PadnameTYPE|PADNAME * pn
 The stash associated with a typed lexical.  This returns the C<%Foo::> hash
 for C<my Foo $bar>.
 
-=for apidoc Amx|SSize_t|PadnameREFCNT|PADNAME pn
+=for apidoc Amx|SSize_t|PadnameREFCNT|PADNAME * pn
 The reference count of the pad name.
 
-=for apidoc Amx|void|PadnameREFCNT_dec|PADNAME pn
+=for apidoc Amx|void|PadnameREFCNT_dec|PADNAME * pn
 Lowers the reference count of the pad name.
 
 

-- 
Perl5 Master Repository

Reply via email to