This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Compile variant_byte_number() for EBCDIC
[perl5.git]
/
pad.h
diff --git
a/pad.h
b/pad.h
index
5d7906e
..
976dc05
100644
(file)
--- a/
pad.h
+++ b/
pad.h
@@
-18,13
+18,7
@@
/* offsets within a pad */
/* offsets within a pad */
-#if PTRSIZE == 4
-typedef U32TYPE PADOFFSET;
-#else
-# if PTRSIZE == 8
-typedef U64TYPE PADOFFSET;
-# endif
-#endif
+typedef SSize_t PADOFFSET; /* signed so that -1 is a valid value */
#define NOT_IN_PAD ((PADOFFSET) -1)
/* B.xs expects the first members of these two structs to line up
#define NOT_IN_PAD ((PADOFFSET) -1)
/* B.xs expects the first members of these two structs to line up
@@
-232,7
+226,7
@@
slot.
The length of the name.
=for apidoc Amx|bool|PadnameUTF8|PADNAME pn
The length of the name.
=for apidoc Amx|bool|PadnameUTF8|PADNAME pn
-Whether PadnamePV is in UTF8. Currently, this is always true.
+Whether PadnamePV is in UTF
-
8. Currently, this is always true.
=for apidoc Amx|SV *|PadnameSV|PADNAME pn
Returns the pad name as a mortal SV.
=for apidoc Amx|SV *|PadnameSV|PADNAME pn
Returns the pad name as a mortal SV.
@@
-498,10
+492,10
@@
Clone the state variables associated with running and compiling pads.
PL_cop_seqmax = proto_perl->Icop_seqmax;
/*
PL_cop_seqmax = proto_perl->Icop_seqmax;
/*
-=for apidoc Am|PADOFFSET|pad_add_name_pvs|
const char *
name|U32 flags|HV *typestash|HV *ourstash
+=for apidoc Am|PADOFFSET|pad_add_name_pvs|
"literal string"
name|U32 flags|HV *typestash|HV *ourstash
-Exactly like L</pad_add_name_pvn>, but takes a literal string
instead
-of a string/length pair.
+Exactly like L</pad_add_name_pvn>, but takes a literal string
+
instead
of a string/length pair.
=cut
*/
=cut
*/
@@
-510,10
+504,10
@@
of a string/length pair.
Perl_pad_add_name_pvn(aTHX_ STR_WITH_LEN(name), flags, typestash, ourstash)
/*
Perl_pad_add_name_pvn(aTHX_ STR_WITH_LEN(name), flags, typestash, ourstash)
/*
-=for apidoc Am|PADOFFSET|pad_findmy_pvs|
const char *
name|U32 flags
+=for apidoc Am|PADOFFSET|pad_findmy_pvs|
"literal string"
name|U32 flags
-Exactly like L</pad_findmy_pvn>, but takes a literal string
instead
-of a string/length pair.
+Exactly like L</pad_findmy_pvn>, but takes a literal string
+
instead
of a string/length pair.
=cut
*/
=cut
*/