mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

pad.h: Convert _PADNAME_BASE to legal name

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 12:37:39 -06:00
parent 82c582d736
commit c32a4b2306
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pad.h
View File

@ -57,7 +57,7 @@ struct padnamelist {
struct padname_fieldinfo;
#define _PADNAME_BASE \
#define PADNAME_BASE_ \
char * xpadn_pv; \
HV * xpadn_ourstash; \
union { \
@ -73,19 +73,19 @@ struct padname_fieldinfo;
U8 xpadn_flags
struct padname {
_PADNAME_BASE;
PADNAME_BASE_;
};
struct padname_with_str {
#ifdef PERL_PADNAME_MINIMAL
_PADNAME_BASE;
PADNAME_BASE_;
#else
struct padname xpadn_padname;
#endif
char xpadn_str[1];
};
#undef _PADNAME_BASE
#undef PADNAME_BASE_
#define PADNAME_FROM_PV(s) \
((PADNAME *)((s) - STRUCT_OFFSET(struct padname_with_str, xpadn_str)))