This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fcntl: more O_ constants, move SEEK_ to @EXPORT_OK
[perl5.git] / embed.pl
index 5305dad..952e673 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 
-require 5.003;
+require 5.003; # keep this compatible, an old perl is all we may have before
+                # we build the new one
 
 #
 # See database of global and static function prototypes at the __END__.
@@ -147,12 +148,12 @@ sub write_protos {
     $ret;
 }
 
-# generates global.sym, and populates %global with global symbols
+# generates global.sym (API export list), and populates %global with global symbols
 sub write_global_sym {
     my $ret = "";
     if (@_ > 1) {
        my ($flags,$retval,$func,@args) = @_;
-       unless ($flags =~ /[sx]/) {
+       if ($flags =~ /A/ && $flags !~ /x/) { # public API, so export
            $func = "Perl_$func" if $flags =~ /p/;
            $ret = "$func\n";
        }
@@ -726,7 +727,7 @@ walk_table {
     }
     else {
        my ($flags,$retval,$func,@args) = @_;
-       unless ($flags =~ /[js]/) {
+       if ($flags =~ /A/ && $flags !~ /j/) { # API function needing macros
            if ($flags =~ /p/) {
                $ret .= undefine("Perl_$func") . hide("Perl_$func","pPerl->Perl_$func");
                $ret .= undefine($func) . hide($func,"Perl_$func");
@@ -739,11 +740,12 @@ walk_table {
     $ret;
 } \*OBX;
 
-for $sym (sort keys %ppsym) {
-    $sym =~ s/^Perl_//;
-    print OBX undefine("Perl_$sym") . hide("Perl_$sym", "pPerl->Perl_$sym");
-    print OBX undefine($sym) . hide($sym, "Perl_$sym");
-}
+# NOTE: not part of API
+#for $sym (sort keys %ppsym) {
+#    $sym =~ s/^Perl_//;
+#    print OBX undefine("Perl_$sym") . hide("Perl_$sym", "pPerl->Perl_$sym");
+#    print OBX undefine($sym) . hide($sym, "Perl_$sym");
+#}
 
 print OBX <<'EOT';
 
@@ -819,7 +821,7 @@ EXT void *PL_force_link_funcs[] = {
 #undef PERLVARA
 #undef PERLVARI
 #undef PERLVARIC
-#define PERLVAR(v,t)   Perl_##v##_ptr,
+#define PERLVAR(v,t)   (void*)Perl_##v##_ptr,
 #define PERLVARA(v,n,t)        PERLVAR(v,t)
 #define PERLVARI(v,t,i)        PERLVAR(v,t)
 #define PERLVARIC(v,t,i) PERLVAR(v,t)
@@ -943,7 +945,8 @@ my %vfuncs = qw(
 sub emit_func {
     my ($addcontext, $rettype,$func,@args) = @_;
     my @aargs = @args;
-    for my $a (@aargs) { $a =~ s/^.*\b(\w+)$/$1/ }
+    my $a;
+    for $a (@aargs) { $a =~ s/^.*\b(\w+)$/$1/ }
     my $ctxarg = '';
     if (not $addcontext) {
        $ctxarg = 'pTHXo';
@@ -992,7 +995,8 @@ EOT
 }
 
 # XXXX temporary hack
-for my $sym (qw(
+my $sym;
+for $sym (qw(
                perl_construct
                perl_destruct
                perl_free
@@ -1012,7 +1016,7 @@ walk_table {
     else {
        my ($flags,$retval,$func,@args) = @_;
        return $ret if exists $skipapi_funcs{$func};
-       unless ($flags =~ /[js]/) {
+       if ($flags =~ /A/ && $flags !~ /j/) { # in public API, needed for XSUBS
            $ret .= "\n";
            my $addctx = 1 if $flags =~ /n/;
            if ($flags =~ /p/) {
@@ -1028,17 +1032,18 @@ walk_table {
     $ret;
 } \*CAPI;
 
-for $sym (sort keys %ppsym) {
-    $sym =~ s/^Perl_//;
-    print CAPI "\n";
-    print CAPI undefine("Perl_$sym");
-    if ($sym =~ /^ck_/) {
-       print CAPI emit_func(0, 'OP *',"Perl_$sym",'OP *o');
-    }
-    else {                                     # pp_foo
-       print CAPI emit_func(0, 'OP *',"Perl_$sym");
-    }
-}
+# NOTE: not part of the API
+#for $sym (sort keys %ppsym) {
+#    $sym =~ s/^Perl_//;
+#    print CAPI "\n";
+#    print CAPI undefine("Perl_$sym");
+#    if ($sym =~ /^ck_/) {
+#      print CAPI emit_func(0, 'OP *',"Perl_$sym",'OP *o');
+#    }
+#   else {                                     # pp_foo
+#      print CAPI emit_func(0, 'OP *',"Perl_$sym");
+#    }
+#}
 
 print CAPI <<'EOT';
 
@@ -1058,6 +1063,201 @@ END_EXTERN_C
 #endif /* PERL_OBJECT || MULTIPLICITY */
 EOT
 
+close(CAPI);
+
+# autogenerate documentation from comments in source files
+
+my %apidocs;
+my %gutsdocs;
+my %docfuncs;
+
+sub autodoc ($) { # parse a file and extract documentation info
+    my($fh) = @_;
+    my($in, $doc);
+
+FUNC:
+    while (defined($in = <$fh>)) {
+       if ($in =~ /^=for\s+apidoc\s+(.*)\n/) {
+           my $proto = $1;
+           $proto = "||$proto" unless $proto =~ /\|/;
+           my($flags, $ret, $name, @args) = split /\|/, $proto;
+           my $docs = "";
+DOC:
+           while (defined($doc = <$fh>)) {
+               last DOC if $doc =~ /^=\w+/;
+               $docs .= $doc;
+           }
+           $docs = "\n$docs" if $docs and $docs !~ /^\n/;
+           if ($flags =~ /m/) {
+               if ($flags =~ /A/) {
+                   $apidocs{$name} = [$flags, $docs, $ret, @args];
+               }
+               else {
+                   $gutsdocs{$name} = [$flags, $docs, $ret, @args];
+               }
+           }
+           else {
+               $docfuncs{$name} = [$flags, $docs, $ret, @args];
+           }
+           if ($doc =~ /^=for/) {
+               $in = $doc;
+               redo FUNC;
+           }
+       }
+    }
+}
+
+sub docout ($$$) { # output the docs for one function
+    my($fh, $name, $docref) = @_;
+    my($flags, $docs, $ret, @args) = @$docref;
+
+    $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n" 
+       if $flags =~ /p/;
+
+    print $fh "=item $name\n$docs";
+
+    if ($flags =~ /U/) { # no usage
+       # nothing
+    } elsif ($flags =~ /s/) { # semicolon ("dTHR;")
+       print $fh "\t\t$name;\n\n";
+    } elsif ($flags =~ /n/) { # no args
+       print $fh "\t$ret\t$name\n\n";
+    } else { # full usage
+       print $fh "\t$ret\t$name";
+       print $fh "(" . join(", ", @args) . ")";
+       print $fh "\n\n";
+    }
+}
+
+my $file;
+for $file (glob('*.c'), glob('*.h')) {
+    open F, "< $file" or die "Cannot open $file for docs: $!\n";
+    autodoc(\*F);
+    close F or die "Error closing $file: $!\n";
+}
+
+unlink "pod/perlapi.pod";
+open (DOC, ">pod/perlapi.pod") or 
+       die "Can't create pod/perlapi.pod: $!\n";
+
+walk_table {   # load documented functions into approriate hash
+    if (@_ > 1) {
+       my($flags, $retval, $func, @args) = @_;
+       return "" unless $flags =~ /d/;
+       $func =~ s/\t//g; $flags =~ s/p//; # clean up fields from embed.pl
+       $retval =~ s/\t//;
+       if ($flags =~ /A/) {
+           my $docref = delete $docfuncs{$func};
+           warn "no docs for $func\n" unless $docref and @$docref;
+           $apidocs{$func} = [$docref->[0] . 'A', $docref->[1], $retval, @args];
+       } else {
+           my $docref = delete $docfuncs{$func};
+           $gutsdocs{$func} = [$docref->[0], $docref->[1], $retval, @args];
+       }
+    }
+    return "";
+} \*DOC;
+
+for (sort keys %docfuncs) {
+    warn "Unable to place $_!\n";
+}
+
+print DOC <<'_EOB_';
+=head1 NAME
+
+perlapi - autogenerated documentation for the perl public API
+
+=head1 DESCRIPTION
+
+This file contains the documentation of the perl public API generated by 
+embed.pl, specifically a listing of functions, macros, flags, and variables 
+that may be used by extension writers.  The interfaces of any functions that 
+are not listed here are subject to change without notice.  For this reason,
+blindly using functions listed in proto.h is to be avoided when writing
+extensions.
+
+Note that all Perl API global variables must be referenced with the C<PL_>
+prefix.  Some macros are provided for compatibility with the older,
+unadorned names, but this support may be disabled in a future release.
+
+The listing is alphabetical, case insensitive.
+
+=over 8
+
+_EOB_
+
+my $key;
+for $key (sort { uc($a) cmp uc($b); } keys %apidocs) { # case insensitive sort
+    docout(\*DOC, $key, $apidocs{$key});
+}
+
+print DOC <<'_EOE_';
+=back
+
+=head1 AUTHORS
+
+Until May 1997, this document was maintained by Jeff Okamoto
+<okamoto@corp.hp.com>.  It is now maintained as part of Perl itself.
+
+With lots of help and suggestions from Dean Roehrich, Malcolm Beattie,
+Andreas Koenig, Paul Hudson, Ilya Zakharevich, Paul Marquess, Neil
+Bowers, Matthew Green, Tim Bunce, Spider Boardman, Ulrich Pfeifer,
+Stephen McCamant, and Gurusamy Sarathy.
+
+API Listing originally by Dean Roehrich <roehrich@cray.com>.
+
+Updated to be autogenerated from comments in the source by Benjamin Stuhl.
+
+=head1 SEE ALSO
+
+perlguts(1), perlxs(1), perlxstut(1), perlintern(1)
+
+_EOE_
+
+
+close(DOC);
+
+open(GUTS, ">pod/perlintern.pod") or 
+               die "Unable to create pod/perlintern.pod: $!\n";
+print GUTS <<'END';
+=head1 NAME
+
+perlintern - autogenerated documentation of purely B<internal> 
+                Perl functions
+
+=head1 DESCRIPTION
+
+This file is the autogenerated documentation of functions in the 
+Perl intrepreter that are documented using Perl's internal documentation
+format but are not marked as part of the Perl API. In other words, 
+B<they are not for use in extensions>!
+
+=over 8
+
+END
+
+for $key (sort { uc($a) cmp uc($b); } keys %gutsdocs) {
+    docout(\*GUTS, $key, $gutsdocs{$key});
+}
+
+print GUTS <<'END';
+=back
+
+=head1 AUTHORS
+
+The autodocumentation system was orignally added to the Perl core by 
+Benjamin Stuhl. Documentation is by whoever was kind enough to 
+document their functions.
+
+=head1 SEE ALSO
+
+perlguts(1), perlapi(1)
+
+END
+
+close GUTS;
+
+
 __END__
 
 : Lines are of the form:
@@ -1067,8 +1267,10 @@ __END__
 : Leading and trailing whitespace will be ignored in each component.
 :
 : flags are single letters with following meanings:
+:      A               member of public API
+:      d               function has documentation with its source
 :      s               static function, should have an S_ prefix in source
-:                      file
+:                              file
 :      n               has no implicit interpreter/thread context argument
 :      p               function has a Perl_ prefix
 :      f               function takes printf style format string, varargs
@@ -1081,33 +1283,30 @@ __END__
 :
 : New global functions should be added at the end for binary compatibility
 : in some configurations.
-:
-: TODO: 1) Add a flag to mark the functions that are part of the public API.
-:       2) Add a field for documentation, so that L<perlguts/"API LISTING">
-:          may be autogenerated.
 
 START_EXTERN_C
 
 #if defined(PERL_IMPLICIT_SYS)
-jno    |PerlInterpreter*       |perl_alloc_using \
+Ajno   |PerlInterpreter*       |perl_alloc_using \
                                |struct IPerlMem* m|struct IPerlMem* ms \
                                |struct IPerlMem* mp|struct IPerlEnv* e \
                                |struct IPerlStdIO* io|struct IPerlLIO* lio \
                                |struct IPerlDir* d|struct IPerlSock* s \
                                |struct IPerlProc* p
 #else
-jno    |PerlInterpreter*       |perl_alloc
+Ajnod  |PerlInterpreter*       |perl_alloc
 #endif
-jno    |void   |perl_construct |PerlInterpreter* interp
-jno    |void   |perl_destruct  |PerlInterpreter* interp
-jno    |void   |perl_free      |PerlInterpreter* interp
-jno    |int    |perl_run       |PerlInterpreter* interp
-jno    |int    |perl_parse     |PerlInterpreter* interp|XSINIT_t xsinit \
+Ajnod  |void   |perl_construct |PerlInterpreter* interp
+Ajnod  |void   |perl_destruct  |PerlInterpreter* interp
+Ajnod  |void   |perl_free      |PerlInterpreter* interp
+Ajnod  |int    |perl_run       |PerlInterpreter* interp
+Ajnod  |int    |perl_parse     |PerlInterpreter* interp|XSINIT_t xsinit \
                                |int argc|char** argv|char** env
 #if defined(USE_ITHREADS)
-jno    |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
+: XXX: perl_clone needs docs
+Ajno   |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
 #  if defined(PERL_IMPLICIT_SYS)
-jno    |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
+Ajno   |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
                                |struct IPerlMem* m|struct IPerlMem* ms \
                                |struct IPerlMem* mp|struct IPerlEnv* e \
                                |struct IPerlStdIO* io|struct IPerlLIO* lio \
@@ -1117,10 +1316,10 @@ jno     |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
 #endif
 
 #if defined(MYMALLOC)
-jnop   |Malloc_t|malloc        |MEM_SIZE nbytes
-jnop   |Malloc_t|calloc        |MEM_SIZE elements|MEM_SIZE size
-jnop   |Malloc_t|realloc       |Malloc_t where|MEM_SIZE nbytes
-jnop   |Free_t |mfree          |Malloc_t where
+Ajnop  |Malloc_t|malloc        |MEM_SIZE nbytes
+Ajnop  |Malloc_t|calloc        |MEM_SIZE elements|MEM_SIZE size
+Ajnop  |Malloc_t|realloc       |Malloc_t where|MEM_SIZE nbytes
+Ajnop  |Free_t |mfree          |Malloc_t where
 jnp    |MEM_SIZE|malloced_size |void *p
 #endif
 
@@ -1145,99 +1344,99 @@ public:
 START_EXTERN_C
 #endif
 #  include "pp_proto.h"
-     |SV*    |amagic_call    |SV* left|SV* right|int method|int dir
-     |bool   |Gv_AMupdate    |HV* stash
+Ap     |SV*    |amagic_call    |SV* left|SV* right|int method|int dir
+Ap     |bool   |Gv_AMupdate    |HV* stash
 p      |OP*    |append_elem    |I32 optype|OP* head|OP* tail
 p      |OP*    |append_list    |I32 optype|LISTOP* first|LISTOP* last
 p      |I32    |apply          |I32 type|SV** mark|SV** sp
-     |SV*    |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
-     |bool   |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
-     |SV**   |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
-     |HE*    |avhv_iternext  |AV *ar
-     |SV*    |avhv_iterval   |AV *ar|HE* entry
-     |HV*    |avhv_keys      |AV *ar
-p      |void   |av_clear       |AV* ar
-     |SV*    |av_delete      |AV* ar|I32 key|I32 flags
-     |bool   |av_exists      |AV* ar|I32 key
-p      |void   |av_extend      |AV* ar|I32 key
-     |AV*    |av_fake        |I32 size|SV** svp
-p      |SV**   |av_fetch       |AV* ar|I32 key|I32 lval
-     |void   |av_fill        |AV* ar|I32 fill
-p      |I32    |av_len         |AV* ar
-p      |AV*    |av_make        |I32 size|SV** svp
-p      |SV*    |av_pop         |AV* ar
-p      |void   |av_push        |AV* ar|SV* val
-     |void   |av_reify       |AV* ar
-p      |SV*    |av_shift       |AV* ar
-p      |SV**   |av_store       |AV* ar|I32 key|SV* val
-p      |void   |av_undef       |AV* ar
-p      |void   |av_unshift     |AV* ar|I32 num
+Ap     |SV*    |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
+Ap     |bool   |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
+Ap     |SV**   |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
+Ap     |HE*    |avhv_iternext  |AV *ar
+Ap     |SV*    |avhv_iterval   |AV *ar|HE* entry
+Ap     |HV*    |avhv_keys      |AV *ar
+Apd    |void   |av_clear       |AV* ar
+Ap     |SV*    |av_delete      |AV* ar|I32 key|I32 flags
+Ap     |bool   |av_exists      |AV* ar|I32 key
+Apd    |void   |av_extend      |AV* ar|I32 key
+Ap     |AV*    |av_fake        |I32 size|SV** svp
+Apd    |SV**   |av_fetch       |AV* ar|I32 key|I32 lval
+Ap     |void   |av_fill        |AV* ar|I32 fill
+Apd    |I32    |av_len         |AV* ar
+Apd    |AV*    |av_make        |I32 size|SV** svp
+Apd    |SV*    |av_pop         |AV* ar
+Apd    |void   |av_push        |AV* ar|SV* val
+Ap     |void   |av_reify       |AV* ar
+Apd    |SV*    |av_shift       |AV* ar
+Apd    |SV**   |av_store       |AV* ar|I32 key|SV* val
+Apd    |void   |av_undef       |AV* ar
+Apd    |void   |av_unshift     |AV* ar|I32 num
 p      |OP*    |bind_match     |I32 type|OP* left|OP* pat
 p      |OP*    |block_end      |I32 floor|OP* seq
-     |I32    |block_gimme
+Ap     |I32    |block_gimme
 p      |int    |block_start    |int full
 p      |void   |boot_core_UNIVERSAL
-     |void   |call_list      |I32 oldscope|AV* av_list
+Ap     |void   |call_list      |I32 oldscope|AV* av_list
 p      |bool   |cando          |Mode_t mode|Uid_t effective|Stat_t* statbufp
-     |U32    |cast_ulong     |NV f
-     |I32    |cast_i32       |NV f
-     |IV     |cast_iv        |NV f
-     |UV     |cast_uv        |NV f
+Ap     |U32    |cast_ulong     |NV f
+Ap     |I32    |cast_i32       |NV f
+Ap     |IV     |cast_iv        |NV f
+Ap     |UV     |cast_uv        |NV f
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
-     |I32    |my_chsize      |int fd|Off_t length
+Ap     |I32    |my_chsize      |int fd|Off_t length
 #endif
 #if defined(USE_THREADS)
-     |MAGIC* |condpair_magic |SV *sv
+Ap     |MAGIC* |condpair_magic |SV *sv
 #endif
 p      |OP*    |convert        |I32 optype|I32 flags|OP* o
-fpr    |void   |croak          |const char* pat|...
-pr     |void   |vcroak         |const char* pat|va_list* args
+Afprd  |void   |croak          |const char* pat|...
+Apr    |void   |vcroak         |const char* pat|va_list* args
 #if defined(PERL_IMPLICIT_CONTEXT)
-fnrp   |void   |croak_nocontext|const char* pat|...
-fnp    |OP*    |die_nocontext  |const char* pat|...
-fnp    |void   |deb_nocontext  |const char* pat|...
-fnp    |char*  |form_nocontext |const char* pat|...
-fnp    |SV*    |mess_nocontext |const char* pat|...
-fnp    |void   |warn_nocontext |const char* pat|...
-fnp    |void   |warner_nocontext|U32 err|const char* pat|...
-fnp    |SV*    |newSVpvf_nocontext|const char* pat|...
-fnp    |void   |sv_catpvf_nocontext|SV* sv|const char* pat|...
-fnp    |void   |sv_setpvf_nocontext|SV* sv|const char* pat|...
-fnp    |void   |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
-fnp    |void   |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
-fnp    |int    |fprintf_nocontext|PerlIO* stream|const char* fmt|...
+Afnrp  |void   |croak_nocontext|const char* pat|...
+Afnp   |OP*    |die_nocontext  |const char* pat|...
+Afnp   |void   |deb_nocontext  |const char* pat|...
+Afnp   |char*  |form_nocontext |const char* pat|...
+Afnp   |SV*    |mess_nocontext |const char* pat|...
+Afnp   |void   |warn_nocontext |const char* pat|...
+Afnp   |void   |warner_nocontext|U32 err|const char* pat|...
+Afnp   |SV*    |newSVpvf_nocontext|const char* pat|...
+Afnp   |void   |sv_catpvf_nocontext|SV* sv|const char* pat|...
+Afnp   |void   |sv_setpvf_nocontext|SV* sv|const char* pat|...
+Afnp   |void   |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
+Afnp   |void   |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
+Afnp   |int    |fprintf_nocontext|PerlIO* stream|const char* fmt|...
 #endif
 p      |void   |cv_ckproto     |CV* cv|GV* gv|char* p
 p      |CV*    |cv_clone       |CV* proto
 p      |SV*    |cv_const_sv    |CV* cv
 p      |SV*    |op_const_sv    |OP* o|CV* cv
 p      |void   |cv_undef       |CV* cv
-     |void   |cx_dump        |PERL_CONTEXT* cs
-     |SV*    |filter_add     |filter_t funcp|SV* datasv
-     |void   |filter_del     |filter_t funcp
-     |I32    |filter_read    |int idx|SV* buffer|int maxlen
-     |char** |get_op_descs
-     |char** |get_op_names
+Ap     |void   |cx_dump        |PERL_CONTEXT* cs
+Ap     |SV*    |filter_add     |filter_t funcp|SV* datasv
+Ap     |void   |filter_del     |filter_t funcp
+Ap     |I32    |filter_read    |int idx|SV* buffer|int maxlen
+Ap     |char** |get_op_descs
+Ap     |char** |get_op_names
 p      |char*  |get_no_modify
 p      |U32*   |get_opargs
-     |PPADDR_t*|get_ppaddr
+Ap     |PPADDR_t*|get_ppaddr
 p      |I32    |cxinc
-fp     |void   |deb            |const char* pat|...
-     |void   |vdeb           |const char* pat|va_list* args
-     |void   |debprofdump
-     |I32    |debop          |OP* o
-     |I32    |debstack
-     |I32    |debstackptrs
-     |char*  |delimcpy       |char* to|char* toend|char* from \
+Afp    |void   |deb            |const char* pat|...
+Ap     |void   |vdeb           |const char* pat|va_list* args
+Ap     |void   |debprofdump
+Ap     |I32    |debop          |OP* o
+Ap     |I32    |debstack
+Ap     |I32    |debstackptrs
+Ap     |char*  |delimcpy       |char* to|char* toend|char* from \
                                |char* fromend|int delim|I32* retlen
 p      |void   |deprecate      |char* s
-fp     |OP*    |die            |const char* pat|...
+Afp    |OP*    |die            |const char* pat|...
 p      |OP*    |vdie           |const char* pat|va_list* args
 p      |OP*    |die_where      |char* message|STRLEN msglen
-     |void   |dounwind       |I32 cxix
+Ap     |void   |dounwind       |I32 cxix
 p      |bool   |do_aexec       |SV* really|SV** mark|SV** sp
 p      |bool   |do_aexec5      |SV* really|SV** mark|SV** sp|int fd|int flag
-     |int    |do_binmode     |PerlIO *fp|int iotype|int flag
+Ap     |int    |do_binmode     |PerlIO *fp|int iotype|int flag
 p      |void   |do_chop        |SV* asv|SV* sv
 p      |bool   |do_close       |GV* gv|bool not_implicit
 p      |bool   |do_eof         |GV* gv
@@ -1256,9 +1455,9 @@ p |I32    |do_shmio       |I32 optype|SV** mark|SV** sp
 #endif
 p      |void   |do_join        |SV* sv|SV* del|SV** mark|SV** sp
 p      |OP*    |do_kv
-     |bool   |do_open        |GV* gv|char* name|I32 len|int as_raw \
+Ap     |bool   |do_open        |GV* gv|char* name|I32 len|int as_raw \
                                |int rawmode|int rawperm|PerlIO* supplied_fp
-     |bool   |do_open9       |GV *gv|char *name|I32 len|int as_raw \
+Ap     |bool   |do_open9       |GV *gv|char *name|I32 len|int as_raw \
                                |int rawmode|int rawperm|PerlIO *supplied_fp \
                                |SV *svs|I32 num
 p      |void   |do_pipe        |SV* sv|GV* rgv|GV* wgv
@@ -1274,20 +1473,20 @@ p       |UV     |do_vecget      |SV* sv|I32 offset|I32 size
 p      |void   |do_vecset      |SV* sv
 p      |void   |do_vop         |I32 optype|SV* sv|SV* left|SV* right
 p      |OP*    |dofile         |OP* term
-     |I32    |dowantarray
-     |void   |dump_all
-     |void   |dump_eval
+Ap     |I32    |dowantarray
+Ap     |void   |dump_all
+Ap     |void   |dump_eval
 #if defined(DUMP_FDS)
-     |void   |dump_fds       |char* s
+Ap     |void   |dump_fds       |char* s
 #endif
-     |void   |dump_form      |GV* gv
-     |void   |gv_dump        |GV* gv
-     |void   |op_dump        |OP* arg
-     |void   |pmop_dump      |PMOP* pm
-     |void   |dump_packsubs  |HV* stash
-     |void   |dump_sub       |GV* gv
-p      |void   |fbm_compile    |SV* sv|U32 flags
-p      |char*  |fbm_instr      |unsigned char* big|unsigned char* bigend \
+Ap     |void   |dump_form      |GV* gv
+Ap     |void   |gv_dump        |GV* gv
+Ap     |void   |op_dump        |OP* arg
+Ap     |void   |pmop_dump      |PMOP* pm
+Ap     |void   |dump_packsubs  |HV* stash
+Ap     |void   |dump_sub       |GV* gv
+Apd    |void   |fbm_compile    |SV* sv|U32 flags
+Apd    |char*  |fbm_instr      |unsigned char* big|unsigned char* bigend \
                                |SV* littlesv|U32 flags
 p      |char*  |find_script    |char *scriptname|bool dosearch \
                                |char **search_ext|I32 flags
@@ -1296,126 +1495,126 @@ p     |PADOFFSET|find_threadsv|const char *name
 #endif
 p      |OP*    |force_list     |OP* arg
 p      |OP*    |fold_constants |OP* arg
-fp     |char*  |form           |const char* pat|...
-     |char*  |vform          |const char* pat|va_list* args
-     |void   |free_tmps
+Afp    |char*  |form           |const char* pat|...
+Ap     |char*  |vform          |const char* pat|va_list* args
+Ap     |void   |free_tmps
 p      |OP*    |gen_constant_list|OP* o
 #if !defined(HAS_GETENV_LEN)
 p      |char*  |getenv_len     |char* key|unsigned long *len
 #endif
-     |void   |gp_free        |GV* gv
-     |GP*    |gp_ref         |GP* gp
-     |GV*    |gv_AVadd       |GV* gv
-     |GV*    |gv_HVadd       |GV* gv
-     |GV*    |gv_IOadd       |GV* gv
-     |GV*    |gv_autoload4   |HV* stash|const char* name|STRLEN len \
+Ap     |void   |gp_free        |GV* gv
+Ap     |GP*    |gp_ref         |GP* gp
+Ap     |GV*    |gv_AVadd       |GV* gv
+Ap     |GV*    |gv_HVadd       |GV* gv
+Ap     |GV*    |gv_IOadd       |GV* gv
+Ap     |GV*    |gv_autoload4   |HV* stash|const char* name|STRLEN len \
                                |I32 method
-     |void   |gv_check       |HV* stash
-     |void   |gv_efullname   |SV* sv|GV* gv
-     |void   |gv_efullname3  |SV* sv|GV* gv|const char* prefix
-     |GV*    |gv_fetchfile   |const char* name
-p      |GV*    |gv_fetchmeth   |HV* stash|const char* name|STRLEN len \
+Ap     |void   |gv_check       |HV* stash
+Ap     |void   |gv_efullname   |SV* sv|GV* gv
+Ap     |void   |gv_efullname3  |SV* sv|GV* gv|const char* prefix
+Ap     |GV*    |gv_fetchfile   |const char* name
+Apd    |GV*    |gv_fetchmeth   |HV* stash|const char* name|STRLEN len \
                                |I32 level
-p      |GV*    |gv_fetchmethod |HV* stash|const char* name
-p      |GV*    |gv_fetchmethod_autoload|HV* stash|const char* name \
+Apd    |GV*    |gv_fetchmethod |HV* stash|const char* name
+Apd    |GV*    |gv_fetchmethod_autoload|HV* stash|const char* name \
                                |I32 autoload
-     |GV*    |gv_fetchpv     |const char* name|I32 add|I32 sv_type
-     |void   |gv_fullname    |SV* sv|GV* gv
-     |void   |gv_fullname3   |SV* sv|GV* gv|const char* prefix
-     |void   |gv_init        |GV* gv|HV* stash|const char* name \
+Ap     |GV*    |gv_fetchpv     |const char* name|I32 add|I32 sv_type
+Ap     |void   |gv_fullname    |SV* sv|GV* gv
+Ap     |void   |gv_fullname3   |SV* sv|GV* gv|const char* prefix
+Ap     |void   |gv_init        |GV* gv|HV* stash|const char* name \
                                |STRLEN len|int multi
-p      |HV*    |gv_stashpv     |const char* name|I32 create
-     |HV*    |gv_stashpvn    |const char* name|U32 namelen|I32 create
-p      |HV*    |gv_stashsv     |SV* sv|I32 create
-p      |void   |hv_clear       |HV* tb
-     |void   |hv_delayfree_ent|HV* hv|HE* entry
-p      |SV*    |hv_delete      |HV* tb|const char* key|U32 klen|I32 flags
-p      |SV*    |hv_delete_ent  |HV* tb|SV* key|I32 flags|U32 hash
-p      |bool   |hv_exists      |HV* tb|const char* key|U32 klen
-p      |bool   |hv_exists_ent  |HV* tb|SV* key|U32 hash
-p      |SV**   |hv_fetch       |HV* tb|const char* key|U32 klen|I32 lval
-p      |HE*    |hv_fetch_ent   |HV* tb|SV* key|I32 lval|U32 hash
-     |void   |hv_free_ent    |HV* hv|HE* entry
-p      |I32    |hv_iterinit    |HV* tb
-p      |char*  |hv_iterkey     |HE* entry|I32* retlen
-p      |SV*    |hv_iterkeysv   |HE* entry
-p      |HE*    |hv_iternext    |HV* tb
-p      |SV*    |hv_iternextsv  |HV* hv|char** key|I32* retlen
-p      |SV*    |hv_iterval     |HV* tb|HE* entry
-     |void   |hv_ksplit      |HV* hv|IV newmax
-p      |void   |hv_magic       |HV* hv|GV* gv|int how
-p      |SV**   |hv_store       |HV* tb|const char* key|U32 klen|SV* val \
+Apd    |HV*    |gv_stashpv     |const char* name|I32 create
+Ap     |HV*    |gv_stashpvn    |const char* name|U32 namelen|I32 create
+Apd    |HV*    |gv_stashsv     |SV* sv|I32 create
+Apd    |void   |hv_clear       |HV* tb
+Ap     |void   |hv_delayfree_ent|HV* hv|HE* entry
+Apd    |SV*    |hv_delete      |HV* tb|const char* key|U32 klen|I32 flags
+Apd    |SV*    |hv_delete_ent  |HV* tb|SV* key|I32 flags|U32 hash
+Apd    |bool   |hv_exists      |HV* tb|const char* key|U32 klen
+Apd    |bool   |hv_exists_ent  |HV* tb|SV* key|U32 hash
+Apd    |SV**   |hv_fetch       |HV* tb|const char* key|U32 klen|I32 lval
+Apd    |HE*    |hv_fetch_ent   |HV* tb|SV* key|I32 lval|U32 hash
+Ap     |void   |hv_free_ent    |HV* hv|HE* entry
+Apd    |I32    |hv_iterinit    |HV* tb
+Apd    |char*  |hv_iterkey     |HE* entry|I32* retlen
+Apd    |SV*    |hv_iterkeysv   |HE* entry
+Apd    |HE*    |hv_iternext    |HV* tb
+Apd    |SV*    |hv_iternextsv  |HV* hv|char** key|I32* retlen
+Apd    |SV*    |hv_iterval     |HV* tb|HE* entry
+Ap     |void   |hv_ksplit      |HV* hv|IV newmax
+Apd    |void   |hv_magic       |HV* hv|GV* gv|int how
+Apd    |SV**   |hv_store       |HV* tb|const char* key|U32 klen|SV* val \
                                |U32 hash
-p      |HE*    |hv_store_ent   |HV* tb|SV* key|SV* val|U32 hash
-p      |void   |hv_undef       |HV* tb
-     |I32    |ibcmp          |const char* a|const char* b|I32 len
-     |I32    |ibcmp_locale   |const char* a|const char* b|I32 len
+Apd    |HE*    |hv_store_ent   |HV* tb|SV* key|SV* val|U32 hash
+Apd    |void   |hv_undef       |HV* tb
+Ap     |I32    |ibcmp          |const char* a|const char* b|I32 len
+Ap     |I32    |ibcmp_locale   |const char* a|const char* b|I32 len
 p      |bool   |ingroup        |Gid_t testgid|Uid_t effective
 p      |void   |init_debugger
-     |void   |init_stacks
+Ap     |void   |init_stacks
 p      |U32    |intro_my
-     |char*  |instr          |const char* big|const char* little
+Ap     |char*  |instr          |const char* big|const char* little
 p      |bool   |io_close       |IO* io|bool not_implicit
 p      |OP*    |invert         |OP* cmd
-     |bool   |is_uni_alnum   |U32 c
-     |bool   |is_uni_alnumc  |U32 c
-     |bool   |is_uni_idfirst |U32 c
-     |bool   |is_uni_alpha   |U32 c
-     |bool   |is_uni_ascii   |U32 c
-     |bool   |is_uni_space   |U32 c
-     |bool   |is_uni_cntrl   |U32 c
-     |bool   |is_uni_graph   |U32 c
-     |bool   |is_uni_digit   |U32 c
-     |bool   |is_uni_upper   |U32 c
-     |bool   |is_uni_lower   |U32 c
-     |bool   |is_uni_print   |U32 c
-     |bool   |is_uni_punct   |U32 c
-     |bool   |is_uni_xdigit  |U32 c
-     |U32    |to_uni_upper   |U32 c
-     |U32    |to_uni_title   |U32 c
-     |U32    |to_uni_lower   |U32 c
-     |bool   |is_uni_alnum_lc|U32 c
-     |bool   |is_uni_alnumc_lc|U32 c
-     |bool   |is_uni_idfirst_lc|U32 c
-     |bool   |is_uni_alpha_lc|U32 c
-     |bool   |is_uni_ascii_lc|U32 c
-     |bool   |is_uni_space_lc|U32 c
-     |bool   |is_uni_cntrl_lc|U32 c
-     |bool   |is_uni_graph_lc|U32 c
-     |bool   |is_uni_digit_lc|U32 c
-     |bool   |is_uni_upper_lc|U32 c
-     |bool   |is_uni_lower_lc|U32 c
-     |bool   |is_uni_print_lc|U32 c
-     |bool   |is_uni_punct_lc|U32 c
-     |bool   |is_uni_xdigit_lc|U32 c
-     |U32    |to_uni_upper_lc|U32 c
-     |U32    |to_uni_title_lc|U32 c
-     |U32    |to_uni_lower_lc|U32 c
-     |bool   |is_utf8_alnum  |U8 *p
-     |bool   |is_utf8_alnumc |U8 *p
-     |bool   |is_utf8_idfirst|U8 *p
-     |bool   |is_utf8_alpha  |U8 *p
-     |bool   |is_utf8_ascii  |U8 *p
-     |bool   |is_utf8_space  |U8 *p
-     |bool   |is_utf8_cntrl  |U8 *p
-     |bool   |is_utf8_digit  |U8 *p
-     |bool   |is_utf8_graph  |U8 *p
-     |bool   |is_utf8_upper  |U8 *p
-     |bool   |is_utf8_lower  |U8 *p
-     |bool   |is_utf8_print  |U8 *p
-     |bool   |is_utf8_punct  |U8 *p
-     |bool   |is_utf8_xdigit |U8 *p
-     |bool   |is_utf8_mark   |U8 *p
+Ap     |bool   |is_uni_alnum   |U32 c
+Ap     |bool   |is_uni_alnumc  |U32 c
+Ap     |bool   |is_uni_idfirst |U32 c
+Ap     |bool   |is_uni_alpha   |U32 c
+Ap     |bool   |is_uni_ascii   |U32 c
+Ap     |bool   |is_uni_space   |U32 c
+Ap     |bool   |is_uni_cntrl   |U32 c
+Ap     |bool   |is_uni_graph   |U32 c
+Ap     |bool   |is_uni_digit   |U32 c
+Ap     |bool   |is_uni_upper   |U32 c
+Ap     |bool   |is_uni_lower   |U32 c
+Ap     |bool   |is_uni_print   |U32 c
+Ap     |bool   |is_uni_punct   |U32 c
+Ap     |bool   |is_uni_xdigit  |U32 c
+Ap     |U32    |to_uni_upper   |U32 c
+Ap     |U32    |to_uni_title   |U32 c
+Ap     |U32    |to_uni_lower   |U32 c
+Ap     |bool   |is_uni_alnum_lc|U32 c
+Ap     |bool   |is_uni_alnumc_lc|U32 c
+Ap     |bool   |is_uni_idfirst_lc|U32 c
+Ap     |bool   |is_uni_alpha_lc|U32 c
+Ap     |bool   |is_uni_ascii_lc|U32 c
+Ap     |bool   |is_uni_space_lc|U32 c
+Ap     |bool   |is_uni_cntrl_lc|U32 c
+Ap     |bool   |is_uni_graph_lc|U32 c
+Ap     |bool   |is_uni_digit_lc|U32 c
+Ap     |bool   |is_uni_upper_lc|U32 c
+Ap     |bool   |is_uni_lower_lc|U32 c
+Ap     |bool   |is_uni_print_lc|U32 c
+Ap     |bool   |is_uni_punct_lc|U32 c
+Ap     |bool   |is_uni_xdigit_lc|U32 c
+Ap     |U32    |to_uni_upper_lc|U32 c
+Ap     |U32    |to_uni_title_lc|U32 c
+Ap     |U32    |to_uni_lower_lc|U32 c
+Ap     |bool   |is_utf8_alnum  |U8 *p
+Ap     |bool   |is_utf8_alnumc |U8 *p
+Ap     |bool   |is_utf8_idfirst|U8 *p
+Ap     |bool   |is_utf8_alpha  |U8 *p
+Ap     |bool   |is_utf8_ascii  |U8 *p
+Ap     |bool   |is_utf8_space  |U8 *p
+Ap     |bool   |is_utf8_cntrl  |U8 *p
+Ap     |bool   |is_utf8_digit  |U8 *p
+Ap     |bool   |is_utf8_graph  |U8 *p
+Ap     |bool   |is_utf8_upper  |U8 *p
+Ap     |bool   |is_utf8_lower  |U8 *p
+Ap     |bool   |is_utf8_print  |U8 *p
+Ap     |bool   |is_utf8_punct  |U8 *p
+Ap     |bool   |is_utf8_xdigit |U8 *p
+Ap     |bool   |is_utf8_mark   |U8 *p
 p      |OP*    |jmaybe         |OP* arg
 p      |I32    |keyword        |char* d|I32 len
-     |void   |leave_scope    |I32 base
+Ap     |void   |leave_scope    |I32 base
 p      |void   |lex_end
 p      |void   |lex_start      |SV* line
 p      |OP*    |linklist       |OP* o
 p      |OP*    |list           |OP* o
 p      |OP*    |listkids       |OP* o
 p      |OP*    |localize       |OP* arg|I32 lexical
-p      |I32    |looks_like_number|SV* sv
+Apd    |I32    |looks_like_number|SV* sv
 p      |int    |magic_clearenv |SV* sv|MAGIC* mg
 p      |int    |magic_clear_all_env|SV* sv|MAGIC* mg
 p      |int    |magic_clearpack|SV* sv|MAGIC* mg
@@ -1467,112 +1666,112 @@ p     |int    |magic_set_all_env|SV* sv|MAGIC* mg
 p      |U32    |magic_sizepack |SV* sv|MAGIC* mg
 p      |int    |magic_wipepack |SV* sv|MAGIC* mg
 p      |void   |magicname      |char* sym|char* name|I32 namlen
-     |void   |markstack_grow
+Ap     |void   |markstack_grow
 #if defined(USE_LOCALE_COLLATE)
 p      |char*  |mem_collxfrm   |const char* s|STRLEN len|STRLEN* xlen
 #endif
-fp     |SV*    |mess           |const char* pat|...
-     |SV*    |vmess          |const char* pat|va_list* args
+Afp    |SV*    |mess           |const char* pat|...
+Ap     |SV*    |vmess          |const char* pat|va_list* args
 p      |void   |qerror         |SV* err
-p      |int    |mg_clear       |SV* sv
-p      |int    |mg_copy        |SV* sv|SV* nsv|const char* key|I32 klen
-p      |MAGIC* |mg_find        |SV* sv|int type
-p      |int    |mg_free        |SV* sv
-p      |int    |mg_get         |SV* sv
-p      |U32    |mg_length      |SV* sv
-p      |void   |mg_magical     |SV* sv
-p      |int    |mg_set         |SV* sv
-     |I32    |mg_size        |SV* sv
+Apd    |int    |mg_clear       |SV* sv
+Apd    |int    |mg_copy        |SV* sv|SV* nsv|const char* key|I32 klen
+Apd    |MAGIC* |mg_find        |SV* sv|int type
+Apd    |int    |mg_free        |SV* sv
+Apd    |int    |mg_get         |SV* sv
+Apd    |U32    |mg_length      |SV* sv
+Apd    |void   |mg_magical     |SV* sv
+Apd    |int    |mg_set         |SV* sv
+Ap     |I32    |mg_size        |SV* sv
 p      |OP*    |mod            |OP* o|I32 type
-     |char*  |moreswitches   |char* s
+Ap     |char*  |moreswitches   |char* s
 p      |OP*    |my             |OP* o
-     |NV     |my_atof        |const char *s
+Ap     |NV     |my_atof        |const char *s
 #if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
-np     |char*  |my_bcopy       |const char* from|char* to|I32 len
+Anp    |char*  |my_bcopy       |const char* from|char* to|I32 len
 #endif
 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
-np     |char*  |my_bzero       |char* loc|I32 len
+Anp    |char*  |my_bzero       |char* loc|I32 len
 #endif
-pr     |void   |my_exit        |U32 status
-pr     |void   |my_failure_exit
-     |I32    |my_fflush_all
-     |I32    |my_lstat
+Apr    |void   |my_exit        |U32 status
+Apr    |void   |my_failure_exit
+Ap     |I32    |my_fflush_all
+Ap     |I32    |my_lstat
 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
-np     |I32    |my_memcmp      |const char* s1|const char* s2|I32 len
+Anp    |I32    |my_memcmp      |const char* s1|const char* s2|I32 len
 #endif
 #if !defined(HAS_MEMSET)
-np     |void*  |my_memset      |char* loc|I32 ch|I32 len
+Anp    |void*  |my_memset      |char* loc|I32 ch|I32 len
 #endif
 #if !defined(PERL_OBJECT)
-     |I32    |my_pclose      |PerlIO* ptr
-     |PerlIO*|my_popen       |char* cmd|char* mode
+Ap     |I32    |my_pclose      |PerlIO* ptr
+Ap     |PerlIO*|my_popen       |char* cmd|char* mode
 #endif
-     |void   |my_setenv      |char* nam|char* val
-     |I32    |my_stat
+Ap     |void   |my_setenv      |char* nam|char* val
+Ap     |I32    |my_stat
 #if defined(MYSWAP)
-     |short  |my_swap        |short s
-     |long   |my_htonl       |long l
-     |long   |my_ntohl       |long l
+Ap     |short  |my_swap        |short s
+Ap     |long   |my_htonl       |long l
+Ap     |long   |my_ntohl       |long l
 #endif
 p      |void   |my_unexec
-     |OP*    |newANONLIST    |OP* o
-     |OP*    |newANONHASH    |OP* o
-     |OP*    |newANONSUB     |I32 floor|OP* proto|OP* block
-     |OP*    |newASSIGNOP    |I32 flags|OP* left|I32 optype|OP* right
-     |OP*    |newCONDOP      |I32 flags|OP* expr|OP* trueop|OP* falseop
-p      |void   |newCONSTSUB    |HV* stash|char* name|SV* sv
-     |void   |newFORM        |I32 floor|OP* o|OP* block
-     |OP*    |newFOROP       |I32 flags|char* label|line_t forline \
+Ap     |OP*    |newANONLIST    |OP* o
+Ap     |OP*    |newANONHASH    |OP* o
+Ap     |OP*    |newANONSUB     |I32 floor|OP* proto|OP* block
+Ap     |OP*    |newASSIGNOP    |I32 flags|OP* left|I32 optype|OP* right
+Ap     |OP*    |newCONDOP      |I32 flags|OP* expr|OP* trueop|OP* falseop
+Apd    |void   |newCONSTSUB    |HV* stash|char* name|SV* sv
+Ap     |void   |newFORM        |I32 floor|OP* o|OP* block
+Ap     |OP*    |newFOROP       |I32 flags|char* label|line_t forline \
                                |OP* sclr|OP* expr|OP*block|OP*cont
-     |OP*    |newLOGOP       |I32 optype|I32 flags|OP* left|OP* right
-     |OP*    |newLOOPEX      |I32 type|OP* label
-     |OP*    |newLOOPOP      |I32 flags|I32 debuggable|OP* expr|OP* block
-     |OP*    |newNULLLIST
-     |OP*    |newOP          |I32 optype|I32 flags
-     |void   |newPROG        |OP* o
-     |OP*    |newRANGE       |I32 flags|OP* left|OP* right
-     |OP*    |newSLICEOP     |I32 flags|OP* subscript|OP* listop
-     |OP*    |newSTATEOP     |I32 flags|char* label|OP* o
-     |CV*    |newSUB         |I32 floor|OP* o|OP* proto|OP* block
-p      |CV*    |newXS          |char* name|XSUBADDR_t f|char* filename
-p      |AV*    |newAV
-     |OP*    |newAVREF       |OP* o
-     |OP*    |newBINOP       |I32 type|I32 flags|OP* first|OP* last
-     |OP*    |newCVREF       |I32 flags|OP* o
-     |OP*    |newGVOP        |I32 type|I32 flags|GV* gv
-     |GV*    |newGVgen       |char* pack
-     |OP*    |newGVREF       |I32 type|OP* o
-     |OP*    |newHVREF       |OP* o
-p      |HV*    |newHV
-     |HV*    |newHVhv        |HV* hv
-     |IO*    |newIO
-     |OP*    |newLISTOP      |I32 type|I32 flags|OP* first|OP* last
-     |OP*    |newPADOP       |I32 type|I32 flags|SV* sv
-     |OP*    |newPMOP        |I32 type|I32 flags
-     |OP*    |newPVOP        |I32 type|I32 flags|char* pv
-     |SV*    |newRV          |SV* pref
-p      |SV*    |newRV_noinc    |SV *sv
-     |SV*    |newSV          |STRLEN len
-     |OP*    |newSVREF       |OP* o
-     |OP*    |newSVOP        |I32 type|I32 flags|SV* sv
-p      |SV*    |newSViv        |IV i
-p      |SV*    |newSVnv        |NV n
-p      |SV*    |newSVpv        |const char* s|STRLEN len
-p      |SV*    |newSVpvn       |const char* s|STRLEN len
-fp     |SV*    |newSVpvf       |const char* pat|...
-     |SV*    |vnewSVpvf      |const char* pat|va_list* args
-p      |SV*    |newSVrv        |SV* rv|const char* classname
-p      |SV*    |newSVsv        |SV* old
-     |OP*    |newUNOP        |I32 type|I32 flags|OP* first
-     |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
+Ap     |OP*    |newLOGOP       |I32 optype|I32 flags|OP* left|OP* right
+Ap     |OP*    |newLOOPEX      |I32 type|OP* label
+Ap     |OP*    |newLOOPOP      |I32 flags|I32 debuggable|OP* expr|OP* block
+Ap     |OP*    |newNULLLIST
+Ap     |OP*    |newOP          |I32 optype|I32 flags
+Ap     |void   |newPROG        |OP* o
+Ap     |OP*    |newRANGE       |I32 flags|OP* left|OP* right
+Ap     |OP*    |newSLICEOP     |I32 flags|OP* subscript|OP* listop
+Ap     |OP*    |newSTATEOP     |I32 flags|char* label|OP* o
+Ap     |CV*    |newSUB         |I32 floor|OP* o|OP* proto|OP* block
+Apd    |CV*    |newXS          |char* name|XSUBADDR_t f|char* filename
+Apd    |AV*    |newAV
+Ap     |OP*    |newAVREF       |OP* o
+Ap     |OP*    |newBINOP       |I32 type|I32 flags|OP* first|OP* last
+Ap     |OP*    |newCVREF       |I32 flags|OP* o
+Ap     |OP*    |newGVOP        |I32 type|I32 flags|GV* gv
+Ap     |GV*    |newGVgen       |char* pack
+Ap     |OP*    |newGVREF       |I32 type|OP* o
+Ap     |OP*    |newHVREF       |OP* o
+Apd    |HV*    |newHV
+Ap     |HV*    |newHVhv        |HV* hv
+Ap     |IO*    |newIO
+Ap     |OP*    |newLISTOP      |I32 type|I32 flags|OP* first|OP* last
+Ap     |OP*    |newPADOP       |I32 type|I32 flags|SV* sv
+Ap     |OP*    |newPMOP        |I32 type|I32 flags
+Ap     |OP*    |newPVOP        |I32 type|I32 flags|char* pv
+Ap     |SV*    |newRV          |SV* pref
+Apd    |SV*    |newRV_noinc    |SV *sv
+Ap     |SV*    |newSV          |STRLEN len
+Ap     |OP*    |newSVREF       |OP* o
+Ap     |OP*    |newSVOP        |I32 type|I32 flags|SV* sv
+Apd    |SV*    |newSViv        |IV i
+Apd    |SV*    |newSVnv        |NV n
+Apd    |SV*    |newSVpv        |const char* s|STRLEN len
+Apd    |SV*    |newSVpvn       |const char* s|STRLEN len
+Afpd   |SV*    |newSVpvf       |const char* pat|...
+Ap     |SV*    |vnewSVpvf      |const char* pat|va_list* args
+Apd    |SV*    |newSVrv        |SV* rv|const char* classname
+Apd    |SV*    |newSVsv        |SV* old
+Ap     |OP*    |newUNOP        |I32 type|I32 flags|OP* first
+Ap     |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
                                |I32 whileline|OP* expr|OP* block|OP* cont
 
-     |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
+Ap     |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
 p      |PerlIO*|nextargv       |GV* gv
-     |char*  |ninstr         |const char* big|const char* bigend \
+Ap     |char*  |ninstr         |const char* big|const char* bigend \
                                |const char* little|const char* lend
 p      |OP*    |oopsCV         |OP* o
-     |void   |op_free        |OP* arg
+Ap     |void   |op_free        |OP* arg
 p      |void   |package        |OP* o
 p      |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
 p      |PADOFFSET|pad_allocmy  |char* name
@@ -1580,70 +1779,70 @@ p       |PADOFFSET|pad_findmy   |char* name
 p      |OP*    |oopsAV         |OP* o
 p      |OP*    |oopsHV         |OP* o
 p      |void   |pad_leavemy    |I32 fill
-     |SV*    |pad_sv         |PADOFFSET po
+Ap     |SV*    |pad_sv         |PADOFFSET po
 p      |void   |pad_free       |PADOFFSET po
 p      |void   |pad_reset
 p      |void   |pad_swipe      |PADOFFSET po
 p      |void   |peep           |OP* o
 #if defined(PERL_OBJECT)
-ox     |void   |Perl_construct
-ox     |void   |Perl_destruct
-ox     |void   |Perl_free
-ox     |int    |Perl_run
-ox     |int    |Perl_parse     |XSINIT_t xsinit \
+Aox    |void   |Perl_construct
+Aox    |void   |Perl_destruct
+Aox    |void   |Perl_free
+Aox    |int    |Perl_run
+Aox    |int    |Perl_parse     |XSINIT_t xsinit \
                                |int argc|char** argv|char** env
 #endif
 #if defined(USE_THREADS)
-     |struct perl_thread*    |new_struct_thread|struct perl_thread *t
+Ap     |struct perl_thread*    |new_struct_thread|struct perl_thread *t
 #endif
-     |void   |call_atexit    |ATEXIT_t fn|void *ptr
-p      |I32    |call_argv      |const char* sub_name|I32 flags|char** argv
-p      |I32    |call_method    |const char* methname|I32 flags
-p      |I32    |call_pv        |const char* sub_name|I32 flags
-p      |I32    |call_sv        |SV* sv|I32 flags
-p      |SV*    |eval_pv        |const char* p|I32 croak_on_error
-p      |I32    |eval_sv        |SV* sv|I32 flags
-p      |SV*    |get_sv         |const char* name|I32 create
-p      |AV*    |get_av         |const char* name|I32 create
-p      |HV*    |get_hv         |const char* name|I32 create
-p      |CV*    |get_cv         |const char* name|I32 create
-     |int    |init_i18nl10n  |int printwarn
-     |int    |init_i18nl14n  |int printwarn
-     |void   |new_collate    |const char* newcoll
-     |void   |new_ctype      |const char* newctype
-     |void   |new_numeric    |const char* newcoll
-     |void   |set_numeric_local
-     |void   |set_numeric_radix
-     |void   |set_numeric_standard
-p      |void   |require_pv     |const char* pv
+Ap     |void   |call_atexit    |ATEXIT_t fn|void *ptr
+Apd    |I32    |call_argv      |const char* sub_name|I32 flags|char** argv
+Apd    |I32    |call_method    |const char* methname|I32 flags
+Apd    |I32    |call_pv        |const char* sub_name|I32 flags
+Apd    |I32    |call_sv        |SV* sv|I32 flags
+Apd    |SV*    |eval_pv        |const char* p|I32 croak_on_error
+Apd    |I32    |eval_sv        |SV* sv|I32 flags
+Apd    |SV*    |get_sv         |const char* name|I32 create
+Apd    |AV*    |get_av         |const char* name|I32 create
+Apd    |HV*    |get_hv         |const char* name|I32 create
+Apd    |CV*    |get_cv         |const char* name|I32 create
+Ap     |int    |init_i18nl10n  |int printwarn
+Ap     |int    |init_i18nl14n  |int printwarn
+Ap     |void   |new_collate    |const char* newcoll
+Ap     |void   |new_ctype      |const char* newctype
+Ap     |void   |new_numeric    |const char* newcoll
+Ap     |void   |set_numeric_local
+Ap     |void   |set_numeric_radix
+Ap     |void   |set_numeric_standard
+Apd    |void   |require_pv     |const char* pv
 p      |void   |pidgone        |Pid_t pid|int status
-     |void   |pmflag         |U16* pmfl|int ch
+Ap     |void   |pmflag         |U16* pmfl|int ch
 p      |OP*    |pmruntime      |OP* pm|OP* expr|OP* repl
 p      |OP*    |pmtrans        |OP* o|OP* expr|OP* repl
 p      |OP*    |pop_return
-     |void   |pop_scope
+Ap     |void   |pop_scope
 p      |OP*    |prepend_elem   |I32 optype|OP* head|OP* tail
 p      |void   |push_return    |OP* o
-     |void   |push_scope
+Ap     |void   |push_scope
 p      |OP*    |ref            |OP* o|I32 type
 p      |OP*    |refkids        |OP* o|I32 type
-     |void   |regdump        |regexp* r
-     |I32    |pregexec       |regexp* prog|char* stringarg \
+Ap     |void   |regdump        |regexp* r
+Ap     |I32    |pregexec       |regexp* prog|char* stringarg \
                                |char* strend|char* strbeg|I32 minend \
                                |SV* screamer|U32 nosave
-     |void   |pregfree       |struct regexp* r
-     |regexp*|pregcomp       |char* exp|char* xend|PMOP* pm
-     |char*  |re_intuit_start|regexp* prog|SV* sv|char* strpos \
+Ap     |void   |pregfree       |struct regexp* r
+Ap     |regexp*|pregcomp       |char* exp|char* xend|PMOP* pm
+Ap     |char*  |re_intuit_start|regexp* prog|SV* sv|char* strpos \
                                |char* strend|U32 flags \
                                |struct re_scream_pos_data_s *data
-     |SV*    |re_intuit_string|regexp* prog
-     |I32    |regexec_flags  |regexp* prog|char* stringarg \
+Ap     |SV*    |re_intuit_string|regexp* prog
+Ap     |I32    |regexec_flags  |regexp* prog|char* stringarg \
                                |char* strend|char* strbeg|I32 minend \
                                |SV* screamer|void* data|U32 flags
-     |regnode*|regnext       |regnode* p
+Ap     |regnode*|regnext       |regnode* p
 p      |void   |regprop        |SV* sv|regnode* o
-     |void   |repeatcpy      |char* to|const char* from|I32 len|I32 count
-     |char*  |rninstr        |const char* big|const char* bigend \
+Ap     |void   |repeatcpy      |char* to|const char* from|I32 len|I32 count
+Ap     |char*  |rninstr        |const char* big|const char* bigend \
                                |const char* little|const char* lend
 p      |Sighandler_t|rsignal   |int i|Sighandler_t t
 p      |int    |rsignal_restore|int i|Sigsave_t* t
@@ -1655,189 +1854,189 @@ p     |void   |rxres_save     |void** rsp|REGEXP* prx
 #if !defined(HAS_RENAME)
 p      |I32    |same_dirent    |char* a|char* b
 #endif
-p      |char*  |savepv         |const char* sv
-p      |char*  |savepvn        |const char* sv|I32 len
-     |void   |savestack_grow
-     |void   |save_aelem     |AV* av|I32 idx|SV **sptr
-     |I32    |save_alloc     |I32 size|I32 pad
-     |void   |save_aptr      |AV** aptr
-     |AV*    |save_ary       |GV* gv
-     |void   |save_clearsv   |SV** svp
-     |void   |save_delete    |HV* hv|char* key|I32 klen
-     |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
-     |void   |save_destructor_x|DESTRUCTORFUNC_t f|void* p
-     |void   |save_freesv    |SV* sv
+Apd    |char*  |savepv         |const char* sv
+Apd    |char*  |savepvn        |const char* sv|I32 len
+Ap     |void   |savestack_grow
+Ap     |void   |save_aelem     |AV* av|I32 idx|SV **sptr
+Ap     |I32    |save_alloc     |I32 size|I32 pad
+Ap     |void   |save_aptr      |AV** aptr
+Ap     |AV*    |save_ary       |GV* gv
+Ap     |void   |save_clearsv   |SV** svp
+Ap     |void   |save_delete    |HV* hv|char* key|I32 klen
+Ap     |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
+Ap     |void   |save_destructor_x|DESTRUCTORFUNC_t f|void* p
+Ap     |void   |save_freesv    |SV* sv
 p      |void   |save_freeop    |OP* o
-     |void   |save_freepv    |char* pv
-     |void   |save_generic_svref|SV** sptr
-     |void   |save_gp        |GV* gv|I32 empty
-     |HV*    |save_hash      |GV* gv
-     |void   |save_helem     |HV* hv|SV *key|SV **sptr
-     |void   |save_hints
-     |void   |save_hptr      |HV** hptr
-     |void   |save_I16       |I16* intp
-     |void   |save_I32       |I32* intp
-     |void   |save_I8        |I8* bytep
-     |void   |save_int       |int* intp
-     |void   |save_item      |SV* item
-     |void   |save_iv        |IV* iv
-     |void   |save_list      |SV** sarg|I32 maxsarg
-     |void   |save_long      |long* longp
-     |void   |save_nogv      |GV* gv
+Ap     |void   |save_freepv    |char* pv
+Ap     |void   |save_generic_svref|SV** sptr
+Ap     |void   |save_gp        |GV* gv|I32 empty
+Ap     |HV*    |save_hash      |GV* gv
+Ap     |void   |save_helem     |HV* hv|SV *key|SV **sptr
+Ap     |void   |save_hints
+Ap     |void   |save_hptr      |HV** hptr
+Ap     |void   |save_I16       |I16* intp
+Ap     |void   |save_I32       |I32* intp
+Ap     |void   |save_I8        |I8* bytep
+Ap     |void   |save_int       |int* intp
+Ap     |void   |save_item      |SV* item
+Ap     |void   |save_iv        |IV* iv
+Ap     |void   |save_list      |SV** sarg|I32 maxsarg
+Ap     |void   |save_long      |long* longp
+Ap     |void   |save_nogv      |GV* gv
 p      |void   |save_op
-     |SV*    |save_scalar    |GV* gv
-     |void   |save_pptr      |char** pptr
-     |void   |save_vptr      |void* pptr
-     |void   |save_re_context
-     |void   |save_sptr      |SV** sptr
-     |SV*    |save_svref     |SV** sptr
-     |SV**   |save_threadsv  |PADOFFSET i
+Ap     |SV*    |save_scalar    |GV* gv
+Ap     |void   |save_pptr      |char** pptr
+Ap     |void   |save_vptr      |void* pptr
+Ap     |void   |save_re_context
+Ap     |void   |save_sptr      |SV** sptr
+Ap     |SV*    |save_svref     |SV** sptr
+Ap     |SV**   |save_threadsv  |PADOFFSET i
 p      |OP*    |sawparens      |OP* o
 p      |OP*    |scalar         |OP* o
 p      |OP*    |scalarkids     |OP* o
 p      |OP*    |scalarseq      |OP* o
 p      |OP*    |scalarvoid     |OP* o
-     |NV     |scan_bin       |char* start|I32 len|I32* retlen
-     |NV     |scan_hex       |char* start|I32 len|I32* retlen
-     |char*  |scan_num       |char* s
-     |NV     |scan_oct       |char* start|I32 len|I32* retlen
+Ap     |NV     |scan_bin       |char* start|I32 len|I32* retlen
+Ap     |NV     |scan_hex       |char* start|I32 len|I32* retlen
+Ap     |char*  |scan_num       |char* s
+Ap     |NV     |scan_oct       |char* start|I32 len|I32* retlen
 p      |OP*    |scope          |OP* o
-     |char*  |screaminstr    |SV* bigsv|SV* littlesv|I32 start_shift \
+Ap     |char*  |screaminstr    |SV* bigsv|SV* littlesv|I32 start_shift \
                                |I32 end_shift|I32 *state|I32 last
 #if !defined(VMS)
 p      |I32    |setenv_getix   |char* nam
 #endif
 p      |void   |setdefout      |GV* gv
-     |char*  |sharepvn       |const char* sv|I32 len|U32 hash
+Ap     |char*  |sharepvn       |const char* sv|I32 len|U32 hash
 p      |HEK*   |share_hek      |const char* sv|I32 len|U32 hash
 np     |Signal_t |sighandler   |int sig
-     |SV**   |stack_grow     |SV** sp|SV**p|int n
-     |I32    |start_subparse |I32 is_format|U32 flags
+Ap     |SV**   |stack_grow     |SV** sp|SV**p|int n
+Ap     |I32    |start_subparse |I32 is_format|U32 flags
 p      |void   |sub_crush_depth|CV* cv
-     |bool   |sv_2bool       |SV* sv
-     |CV*    |sv_2cv         |SV* sv|HV** st|GV** gvp|I32 lref
-     |IO*    |sv_2io         |SV* sv
-     |IV     |sv_2iv         |SV* sv
-p      |SV*    |sv_2mortal     |SV* sv
-     |NV     |sv_2nv         |SV* sv
-     |char*  |sv_2pv         |SV* sv|STRLEN* lp
-     |char*  |sv_2pvutf8     |SV* sv|STRLEN* lp
-     |char*  |sv_2pvbyte     |SV* sv|STRLEN* lp
-     |UV     |sv_2uv         |SV* sv
-     |IV     |sv_iv          |SV* sv
-     |UV     |sv_uv          |SV* sv
-     |NV     |sv_nv          |SV* sv
-     |char*  |sv_pvn         |SV *sv|STRLEN *len
-     |char*  |sv_pvutf8n     |SV *sv|STRLEN *len
-     |char*  |sv_pvbyten     |SV *sv|STRLEN *len
-     |I32    |sv_true        |SV *sv
+Ap     |bool   |sv_2bool       |SV* sv
+Ap     |CV*    |sv_2cv         |SV* sv|HV** st|GV** gvp|I32 lref
+Ap     |IO*    |sv_2io         |SV* sv
+Ap     |IV     |sv_2iv         |SV* sv
+Apd    |SV*    |sv_2mortal     |SV* sv
+Ap     |NV     |sv_2nv         |SV* sv
+Ap     |char*  |sv_2pv         |SV* sv|STRLEN* lp
+Ap     |char*  |sv_2pvutf8     |SV* sv|STRLEN* lp
+Ap     |char*  |sv_2pvbyte     |SV* sv|STRLEN* lp
+Ap     |UV     |sv_2uv         |SV* sv
+Ap     |IV     |sv_iv          |SV* sv
+Ap     |UV     |sv_uv          |SV* sv
+Ap     |NV     |sv_nv          |SV* sv
+Ap     |char*  |sv_pvn         |SV *sv|STRLEN *len
+Ap     |char*  |sv_pvutf8n     |SV *sv|STRLEN *len
+Ap     |char*  |sv_pvbyten     |SV *sv|STRLEN *len
+Ap     |I32    |sv_true        |SV *sv
 p      |void   |sv_add_arena   |char* ptr|U32 size|U32 flags
-     |int    |sv_backoff     |SV* sv
-p      |SV*    |sv_bless       |SV* sv|HV* stash
-fp     |void   |sv_catpvf      |SV* sv|const char* pat|...
-     |void   |sv_vcatpvf     |SV* sv|const char* pat|va_list* args
-p      |void   |sv_catpv       |SV* sv|const char* ptr
-p      |void   |sv_catpvn      |SV* sv|const char* ptr|STRLEN len
-p      |void   |sv_catsv       |SV* dsv|SV* ssv
-p      |void   |sv_chop        |SV* sv|char* ptr
+Ap     |int    |sv_backoff     |SV* sv
+Apd    |SV*    |sv_bless       |SV* sv|HV* stash
+Afpd   |void   |sv_catpvf      |SV* sv|const char* pat|...
+Ap     |void   |sv_vcatpvf     |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_catpv       |SV* sv|const char* ptr
+Apd    |void   |sv_catpvn      |SV* sv|const char* ptr|STRLEN len
+Apd    |void   |sv_catsv       |SV* dsv|SV* ssv
+Apd    |void   |sv_chop        |SV* sv|char* ptr
 p      |void   |sv_clean_all
 p      |void   |sv_clean_objs
-     |void   |sv_clear       |SV* sv
-p      |I32    |sv_cmp         |SV* sv1|SV* sv2
-     |I32    |sv_cmp_locale  |SV* sv1|SV* sv2
+Ap     |void   |sv_clear       |SV* sv
+Apd    |I32    |sv_cmp         |SV* sv1|SV* sv2
+Ap     |I32    |sv_cmp_locale  |SV* sv1|SV* sv2
 #if defined(USE_LOCALE_COLLATE)
-     |char*  |sv_collxfrm    |SV* sv|STRLEN* nxp
+Ap     |char*  |sv_collxfrm    |SV* sv|STRLEN* nxp
 #endif
-     |OP*    |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
-p      |void   |sv_dec         |SV* sv
-     |void   |sv_dump        |SV* sv
-p      |bool   |sv_derived_from|SV* sv|const char* name
-p      |I32    |sv_eq          |SV* sv1|SV* sv2
-     |void   |sv_free        |SV* sv
+Ap     |OP*    |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
+Apd    |void   |sv_dec         |SV* sv
+Ap     |void   |sv_dump        |SV* sv
+Apd    |bool   |sv_derived_from|SV* sv|const char* name
+Apd    |I32    |sv_eq          |SV* sv1|SV* sv2
+Ap     |void   |sv_free        |SV* sv
 p      |void   |sv_free_arenas
-     |char*  |sv_gets        |SV* sv|PerlIO* fp|I32 append
-p      |char*  |sv_grow        |SV* sv|STRLEN newlen
-p      |void   |sv_inc         |SV* sv
-p      |void   |sv_insert      |SV* bigsv|STRLEN offset|STRLEN len \
+Ap     |char*  |sv_gets        |SV* sv|PerlIO* fp|I32 append
+Apd    |char*  |sv_grow        |SV* sv|STRLEN newlen
+Apd    |void   |sv_inc         |SV* sv
+Apd    |void   |sv_insert      |SV* bigsv|STRLEN offset|STRLEN len \
                                |char* little|STRLEN littlelen
-p      |int    |sv_isa         |SV* sv|const char* name
-p      |int    |sv_isobject    |SV* sv
-p      |STRLEN |sv_len         |SV* sv
-     |STRLEN |sv_len_utf8    |SV* sv
-p      |void   |sv_magic       |SV* sv|SV* obj|int how|const char* name \
+Apd    |int    |sv_isa         |SV* sv|const char* name
+Apd    |int    |sv_isobject    |SV* sv
+Apd    |STRLEN |sv_len         |SV* sv
+Ap     |STRLEN |sv_len_utf8    |SV* sv
+Apd    |void   |sv_magic       |SV* sv|SV* obj|int how|const char* name \
                                |I32 namlen
-p      |SV*    |sv_mortalcopy  |SV* oldsv
-p      |SV*    |sv_newmortal
-     |SV*    |sv_newref      |SV* sv
-     |char*  |sv_peek        |SV* sv
-     |void   |sv_pos_u2b     |SV* sv|I32* offsetp|I32* lenp
-     |void   |sv_pos_b2u     |SV* sv|I32* offsetp
-     |char*  |sv_pvn_force   |SV* sv|STRLEN* lp
-     |char*  |sv_pvutf8n_force|SV* sv|STRLEN* lp
-     |char*  |sv_pvbyten_force|SV* sv|STRLEN* lp
-     |char*  |sv_reftype     |SV* sv|int ob
-     |void   |sv_replace     |SV* sv|SV* nsv
-     |void   |sv_report_used
-     |void   |sv_reset       |char* s|HV* stash
-fp     |void   |sv_setpvf      |SV* sv|const char* pat|...
-     |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
-p      |void   |sv_setiv       |SV* sv|IV num
-p      |void   |sv_setpviv     |SV* sv|IV num
-p      |void   |sv_setuv       |SV* sv|UV num
-p      |void   |sv_setnv       |SV* sv|NV num
-p      |SV*    |sv_setref_iv   |SV* rv|const char* classname|IV iv
-p      |SV*    |sv_setref_nv   |SV* rv|const char* classname|NV nv
-p      |SV*    |sv_setref_pv   |SV* rv|const char* classname|void* pv
-p      |SV*    |sv_setref_pvn  |SV* rv|const char* classname|char* pv \
+Apd    |SV*    |sv_mortalcopy  |SV* oldsv
+Apd    |SV*    |sv_newmortal
+Ap     |SV*    |sv_newref      |SV* sv
+Ap     |char*  |sv_peek        |SV* sv
+Ap     |void   |sv_pos_u2b     |SV* sv|I32* offsetp|I32* lenp
+Ap     |void   |sv_pos_b2u     |SV* sv|I32* offsetp
+Ap     |char*  |sv_pvn_force   |SV* sv|STRLEN* lp
+Ap     |char*  |sv_pvutf8n_force|SV* sv|STRLEN* lp
+Ap     |char*  |sv_pvbyten_force|SV* sv|STRLEN* lp
+Ap     |char*  |sv_reftype     |SV* sv|int ob
+Ap     |void   |sv_replace     |SV* sv|SV* nsv
+Ap     |void   |sv_report_used
+Ap     |void   |sv_reset       |char* s|HV* stash
+Afpd   |void   |sv_setpvf      |SV* sv|const char* pat|...
+Ap     |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_setiv       |SV* sv|IV num
+Apd    |void   |sv_setpviv     |SV* sv|IV num
+Apd    |void   |sv_setuv       |SV* sv|UV num
+Apd    |void   |sv_setnv       |SV* sv|NV num
+Apd    |SV*    |sv_setref_iv   |SV* rv|const char* classname|IV iv
+Apd    |SV*    |sv_setref_nv   |SV* rv|const char* classname|NV nv
+Apd    |SV*    |sv_setref_pv   |SV* rv|const char* classname|void* pv
+Apd    |SV*    |sv_setref_pvn  |SV* rv|const char* classname|char* pv \
                                |STRLEN n
-p      |void   |sv_setpv       |SV* sv|const char* ptr
-p      |void   |sv_setpvn      |SV* sv|const char* ptr|STRLEN len
-p      |void   |sv_setsv       |SV* dsv|SV* ssv
-     |void   |sv_taint       |SV* sv
-     |bool   |sv_tainted     |SV* sv
-     |int    |sv_unmagic     |SV* sv|int type
-p      |void   |sv_unref       |SV* sv
-     |void   |sv_untaint     |SV* sv
-p      |bool   |sv_upgrade     |SV* sv|U32 mt
-p      |void   |sv_usepvn      |SV* sv|char* ptr|STRLEN len
-p      |void   |sv_vcatpvfn    |SV* sv|const char* pat|STRLEN patlen \
+Apd    |void   |sv_setpv       |SV* sv|const char* ptr
+Apd    |void   |sv_setpvn      |SV* sv|const char* ptr|STRLEN len
+Apd    |void   |sv_setsv       |SV* dsv|SV* ssv
+Ap     |void   |sv_taint       |SV* sv
+Ap     |bool   |sv_tainted     |SV* sv
+Ap     |int    |sv_unmagic     |SV* sv|int type
+Apd    |void   |sv_unref       |SV* sv
+Ap     |void   |sv_untaint     |SV* sv
+Apd    |bool   |sv_upgrade     |SV* sv|U32 mt
+Apd    |void   |sv_usepvn      |SV* sv|char* ptr|STRLEN len
+Apd    |void   |sv_vcatpvfn    |SV* sv|const char* pat|STRLEN patlen \
                                |va_list* args|SV** svargs|I32 svmax \
                                |bool *maybe_tainted
-p      |void   |sv_vsetpvfn    |SV* sv|const char* pat|STRLEN patlen \
+Apd    |void   |sv_vsetpvfn    |SV* sv|const char* pat|STRLEN patlen \
                                |va_list* args|SV** svargs|I32 svmax \
                                |bool *maybe_tainted
-     |SV*    |swash_init     |char* pkg|char* name|SV* listsv \
+Ap     |SV*    |swash_init     |char* pkg|char* name|SV* listsv \
                                |I32 minbits|I32 none
-     |UV     |swash_fetch    |SV *sv|U8 *ptr
-     |void   |taint_env
-     |void   |taint_proper   |const char* f|const char* s
-     |UV     |to_utf8_lower  |U8 *p
-     |UV     |to_utf8_upper  |U8 *p
-     |UV     |to_utf8_title  |U8 *p
+Ap     |UV     |swash_fetch    |SV *sv|U8 *ptr
+Ap     |void   |taint_env
+Ap     |void   |taint_proper   |const char* f|const char* s
+Ap     |UV     |to_utf8_lower  |U8 *p
+Ap     |UV     |to_utf8_upper  |U8 *p
+Ap     |UV     |to_utf8_title  |U8 *p
 #if defined(UNLINK_ALL_VERSIONS)
-     |I32    |unlnk          |char* f
+Ap     |I32    |unlnk          |char* f
 #endif
 #if defined(USE_THREADS)
-     |void   |unlock_condpair|void* svv
+Ap     |void   |unlock_condpair|void* svv
 #endif
-     |void   |unsharepvn     |const char* sv|I32 len|U32 hash
+Ap     |void   |unsharepvn     |const char* sv|I32 len|U32 hash
 p      |void   |unshare_hek    |HEK* hek
 p      |void   |utilize        |int aver|I32 floor|OP* version|OP* id|OP* arg
-     |U8*    |utf16_to_utf8  |U16* p|U8 *d|I32 bytelen
-     |U8*    |utf16_to_utf8_reversed|U16* p|U8 *d|I32 bytelen
-     |I32    |utf8_distance  |U8 *a|U8 *b
-     |U8*    |utf8_hop       |U8 *s|I32 off
-     |UV     |utf8_to_uv     |U8 *s|I32* retlen
-     |U8*    |uv_to_utf8     |U8 *d|UV uv
+Ap     |U8*    |utf16_to_utf8  |U16* p|U8 *d|I32 bytelen
+Ap     |U8*    |utf16_to_utf8_reversed|U16* p|U8 *d|I32 bytelen
+Ap     |I32    |utf8_distance  |U8 *a|U8 *b
+Ap     |U8*    |utf8_hop       |U8 *s|I32 off
+Ap     |UV     |utf8_to_uv     |U8 *s|I32* retlen
+Ap     |U8*    |uv_to_utf8     |U8 *d|UV uv
 p      |void   |vivify_defelem |SV* sv
 p      |void   |vivify_ref     |SV* sv|U32 to_what
 p      |I32    |wait4pid       |Pid_t pid|int* statusp|int flags
 p      |void   |report_closed_fh|GV *gv|IO *io|const char *func|const char *obj
 p      |void   |report_uninit
-fp     |void   |warn           |const char* pat|...
-     |void   |vwarn          |const char* pat|va_list* args
-fp     |void   |warner         |U32 err|const char* pat|...
-     |void   |vwarner        |U32 err|const char* pat|va_list* args
+Afpd   |void   |warn           |const char* pat|...
+Ap     |void   |vwarn          |const char* pat|va_list* args
+Afp    |void   |warner         |U32 err|const char* pat|...
+Ap     |void   |vwarner        |U32 err|const char* pat|va_list* args
 p      |void   |watch          |char** addr
 p      |I32    |whichsig       |char* sig
 p      |int    |yyerror        |char* s
@@ -1849,94 +2048,95 @@ p       |int    |yylex
 p      |int    |yyparse
 p      |int    |yywarn         |char* s
 #if defined(MYMALLOC)
-p      |void   |dump_mstats    |char* s
+Ap     |void   |dump_mstats    |char* s
+Ap     |int    |get_mstats     |perl_mstats_t *buf|int buflen|int level
 #endif
-np     |Malloc_t|safesysmalloc |MEM_SIZE nbytes
-np     |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
-np     |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
-np     |Free_t |safesysfree    |Malloc_t where
+Anp    |Malloc_t|safesysmalloc |MEM_SIZE nbytes
+Anp    |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
+Anp    |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
+Anp    |Free_t |safesysfree    |Malloc_t where
 #if defined(LEAKTEST)
-np     |Malloc_t|safexmalloc   |I32 x|MEM_SIZE size
-np     |Malloc_t|safexcalloc   |I32 x|MEM_SIZE elements|MEM_SIZE size
-np     |Malloc_t|safexrealloc  |Malloc_t where|MEM_SIZE size
-np     |void   |safexfree      |Malloc_t where
+Anp    |Malloc_t|safexmalloc   |I32 x|MEM_SIZE size
+Anp    |Malloc_t|safexcalloc   |I32 x|MEM_SIZE elements|MEM_SIZE size
+Anp    |Malloc_t|safexrealloc  |Malloc_t where|MEM_SIZE size
+Anp    |void   |safexfree      |Malloc_t where
 #endif
 #if defined(PERL_GLOBAL_STRUCT)
-     |struct perl_vars *|GetVars
+Ap     |struct perl_vars *|GetVars
 #endif
-     |int    |runops_standard
-     |int    |runops_debug
-fp     |void   |sv_catpvf_mg   |SV *sv|const char* pat|...
-     |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
-p      |void   |sv_catpv_mg    |SV *sv|const char *ptr
-p      |void   |sv_catpvn_mg   |SV *sv|const char *ptr|STRLEN len
-p      |void   |sv_catsv_mg    |SV *dstr|SV *sstr
-fp     |void   |sv_setpvf_mg   |SV *sv|const char* pat|...
-     |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
-p      |void   |sv_setiv_mg    |SV *sv|IV i
-p      |void   |sv_setpviv_mg  |SV *sv|IV iv
-p      |void   |sv_setuv_mg    |SV *sv|UV u
-p      |void   |sv_setnv_mg    |SV *sv|NV num
-p      |void   |sv_setpv_mg    |SV *sv|const char *ptr
-p      |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
-p      |void   |sv_setsv_mg    |SV *dstr|SV *sstr
-p      |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
-     |MGVTBL*|get_vtbl       |int vtbl_id
+Ap     |int    |runops_standard
+Ap     |int    |runops_debug
+Afpd   |void   |sv_catpvf_mg   |SV *sv|const char* pat|...
+Ap     |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_catpv_mg    |SV *sv|const char *ptr
+Apd    |void   |sv_catpvn_mg   |SV *sv|const char *ptr|STRLEN len
+Apd    |void   |sv_catsv_mg    |SV *dstr|SV *sstr
+Afpd   |void   |sv_setpvf_mg   |SV *sv|const char* pat|...
+Ap     |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
+Apd    |void   |sv_setiv_mg    |SV *sv|IV i
+Apd    |void   |sv_setpviv_mg  |SV *sv|IV iv
+Apd    |void   |sv_setuv_mg    |SV *sv|UV u
+Apd    |void   |sv_setnv_mg    |SV *sv|NV num
+Apd    |void   |sv_setpv_mg    |SV *sv|const char *ptr
+Apd    |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
+Apd    |void   |sv_setsv_mg    |SV *dstr|SV *sstr
+Apd    |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
+Ap     |MGVTBL*|get_vtbl       |int vtbl_id
 p      |char*  |pv_display     |SV *sv|char *pv|STRLEN cur|STRLEN len \
                                |STRLEN pvlim
-fp     |void   |dump_indent    |I32 level|PerlIO *file|const char* pat|...
-     |void   |dump_vindent   |I32 level|PerlIO *file|const char* pat \
+Afp    |void   |dump_indent    |I32 level|PerlIO *file|const char* pat|...
+Ap     |void   |dump_vindent   |I32 level|PerlIO *file|const char* pat \
                                |va_list *args
-     |void   |do_gv_dump     |I32 level|PerlIO *file|char *name|GV *sv
-     |void   |do_gvgv_dump   |I32 level|PerlIO *file|char *name|GV *sv
-     |void   |do_hv_dump     |I32 level|PerlIO *file|char *name|HV *sv
-     |void   |do_magic_dump  |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
+Ap     |void   |do_gv_dump     |I32 level|PerlIO *file|char *name|GV *sv
+Ap     |void   |do_gvgv_dump   |I32 level|PerlIO *file|char *name|GV *sv
+Ap     |void   |do_hv_dump     |I32 level|PerlIO *file|char *name|HV *sv
+Ap     |void   |do_magic_dump  |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
-     |void   |do_op_dump     |I32 level|PerlIO *file|OP *o
-     |void   |do_pmop_dump   |I32 level|PerlIO *file|PMOP *pm
-     |void   |do_sv_dump     |I32 level|PerlIO *file|SV *sv|I32 nest \
+Ap     |void   |do_op_dump     |I32 level|PerlIO *file|OP *o
+Ap     |void   |do_pmop_dump   |I32 level|PerlIO *file|PMOP *pm
+Ap     |void   |do_sv_dump     |I32 level|PerlIO *file|SV *sv|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
-     |void   |magic_dump     |MAGIC *mg
-     |void*  |default_protect|volatile JMPENV *je|int *excpt \
+Ap     |void   |magic_dump     |MAGIC *mg
+Ap     |void*  |default_protect|volatile JMPENV *je|int *excpt \
                                |protect_body_t body|...
-     |void*  |vdefault_protect|volatile JMPENV *je|int *excpt \
+Ap     |void*  |vdefault_protect|volatile JMPENV *je|int *excpt \
                                |protect_body_t body|va_list *args
-     |void   |reginitcolors
-     |char*  |sv_2pv_nolen   |SV* sv
-     |char*  |sv_2pvutf8_nolen|SV* sv
-     |char*  |sv_2pvbyte_nolen|SV* sv
-     |char*  |sv_pv          |SV *sv
-     |char*  |sv_pvutf8      |SV *sv
-     |char*  |sv_pvbyte      |SV *sv
-     |void   |sv_force_normal|SV *sv
-     |void   |tmps_grow      |I32 n
-     |SV*    |sv_rvweaken    |SV *sv
+Ap     |void   |reginitcolors
+Ap     |char*  |sv_2pv_nolen   |SV* sv
+Ap     |char*  |sv_2pvutf8_nolen|SV* sv
+Ap     |char*  |sv_2pvbyte_nolen|SV* sv
+Ap     |char*  |sv_pv          |SV *sv
+Ap     |char*  |sv_pvutf8      |SV *sv
+Ap     |char*  |sv_pvbyte      |SV *sv
+Ap     |void   |sv_force_normal|SV *sv
+Ap     |void   |tmps_grow      |I32 n
+Ap     |SV*    |sv_rvweaken    |SV *sv
 p      |int    |magic_killbackrefs|SV *sv|MAGIC *mg
-     |OP*    |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
-     |CV*    |newATTRSUB     |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
-     |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
+Ap     |OP*    |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
+Ap     |CV*    |newATTRSUB     |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
+Ap     |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
 p      |OP *   |my_attrs       |OP *o|OP *attrs
 p      |void   |boot_core_xsutils
 #if defined(USE_ITHREADS)
-     |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max
-     |PERL_SI*|si_dup        |PERL_SI* si
-     |ANY*   |ss_dup         |PerlInterpreter* proto_perl
-     |void*  |any_dup        |void* v|PerlInterpreter* proto_perl
-     |HE*    |he_dup         |HE* e|bool shared
-     |REGEXP*|re_dup         |REGEXP* r
-     |PerlIO*|fp_dup         |PerlIO* fp|char type
-     |DIR*   |dirp_dup       |DIR* dp
-     |GP*    |gp_dup         |GP* gp
-     |MAGIC* |mg_dup         |MAGIC* mg
-     |SV*    |sv_dup         |SV* sstr
+Ap     |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max
+Ap     |PERL_SI*|si_dup        |PERL_SI* si
+Ap     |ANY*   |ss_dup         |PerlInterpreter* proto_perl
+Ap     |void*  |any_dup        |void* v|PerlInterpreter* proto_perl
+Ap     |HE*    |he_dup         |HE* e|bool shared
+Ap     |REGEXP*|re_dup         |REGEXP* r
+Ap     |PerlIO*|fp_dup         |PerlIO* fp|char type
+Ap     |DIR*   |dirp_dup       |DIR* dp
+Ap     |GP*    |gp_dup         |GP* gp
+Ap     |MAGIC* |mg_dup         |MAGIC* mg
+Ap     |SV*    |sv_dup         |SV* sstr
 #if defined(HAVE_INTERP_INTERN)
-     |void   |sys_intern_dup |struct interp_intern* src \
+Ap     |void   |sys_intern_dup |struct interp_intern* src \
                                |struct interp_intern* dst
 #endif
-     |PTR_TBL_t*|ptr_table_new
-     |void*  |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
-     |void   |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
-     |void   |ptr_table_split|PTR_TBL_t *tbl
+Ap     |PTR_TBL_t*|ptr_table_new
+Ap     |void*  |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
+Ap     |void   |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
+Ap     |void   |ptr_table_split|PTR_TBL_t *tbl
 #endif
 
 #if defined(PERL_OBJECT)
@@ -2186,12 +2386,6 @@ s        |void   |del_xrv        |XRV* p
 s      |void   |sv_unglob      |SV* sv
 s      |void   |not_a_number   |SV *sv
 s      |void   |visit          |SVFUNC_t f
-#  if defined(PURIFY)
-s      |void   |reg_add        |SV *sv
-s      |void   |reg_remove     |SV *sv
-#  else
-ns     |void*  |my_safemalloc  |MEM_SIZE size
-#  endif
 s      |void   |sv_add_backref |SV *tsv|SV *sv
 s      |void   |sv_del_backref |SV *sv
 #  if defined(DEBUGGING)