This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use new types for comppad and comppad_name
authorFather Chrysostomos <sprout@cpan.org>
Sat, 18 Aug 2012 18:38:50 +0000 (11:38 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 21 Aug 2012 23:51:16 +0000 (16:51 -0700)
I know that a few times I’ve looked at perl source files to find out
what type to use in ‘<type> foo = PL_whatever’.  So I am changing
intrpvar.h as well as the api docs.

intrpvar.h
pad.c

index 7dc9021..d3fa7fa 100644 (file)
@@ -443,8 +443,8 @@ PERLVARI(I, profiledata, U32 *,     NULL)   /* table of ops, counts */
 PERLVAR(I, compiling,  COP)            /* compiling/done executing marker */
 
 PERLVAR(I, compcv,     CV *)           /* currently compiling subroutine */
-PERLVAR(I, comppad,    AV *)           /* storage for lexically scoped temporaries */
-PERLVAR(I, comppad_name, AV *)         /* variable names for "my" variables */
+PERLVAR(I, comppad,    PAD *)          /* storage for lexically scoped temporaries */
+PERLVAR(I, comppad_name, PADNAMELIST *)        /* variable names for "my" variables */
 PERLVAR(I, comppad_name_fill,  I32)    /* last "introduced" variable offset */
 PERLVAR(I, comppad_name_floor, I32)    /* start of vars in innermost block */
 
diff --git a/pad.c b/pad.c
index 5f5912e..a60d7c1 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -109,12 +109,12 @@ to be generated in evals, such as
 
 For state vars, SVs_PADSTALE is overloaded to mean 'not yet initialised'.
 
-=for apidoc AmxU|AV *|PL_comppad_name
+=for apidoc AmxU|PADNAMELIST *|PL_comppad_name
 
 During compilation, this points to the array containing the names part
 of the pad for the currently-compiling code.
 
-=for apidoc AmxU|AV *|PL_comppad
+=for apidoc AmxU|PAD *|PL_comppad
 
 During compilation, this points to the array containing the values
 part of the pad for the currently-compiling code.  (At runtime a CV may