Commit ec3771f277 for perl
commit ec3771f2772eaa6e20810118286658a43c856dd8
Author: Paul Evans <leonerd@leonerd.org.uk>
Date: Mon Oct 12 16:16:05 2026 +0100
Call the `av_create_and_...` functions by their shortnames
diff --git a/doio.c b/doio.c
index dbd2cd995b..9390fa08e8 100644
--- a/doio.c
+++ b/doio.c
@@ -1355,8 +1355,8 @@ Perl_nextargv(pTHX_ GV *gv, bool nomagicopen)
IoFLAGS(io) &= ~IOf_START;
if (PL_inplace) {
assert(PL_defoutgv);
- Perl_av_create_and_push(aTHX_ &PL_argvout_stack,
- SvREFCNT_inc_simple_NN(PL_defoutgv));
+ av_create_and_push(&PL_argvout_stack,
+ SvREFCNT_inc_simple_NN(PL_defoutgv));
}
}
diff --git a/op.c b/op.c
index 31ee49cc1f..c4ec8a97be 100644
--- a/op.c
+++ b/op.c
@@ -5034,7 +5034,7 @@ Perl_blockhook_register(pTHX_ BHK *hk)
{
PERL_ARGS_ASSERT_BLOCKHOOK_REGISTER;
- Perl_av_create_and_push(aTHX_ &PL_blockhooks, newSViv(PTR2IV(hk)));
+ av_create_and_push(&PL_blockhooks, newSViv(PTR2IV(hk)));
}
void
@@ -12618,7 +12618,7 @@ S_process_special_blocks(pTHX_ I32 floor, const char *const fullname,
SAVECOPLINE(&PL_compiling);
DEBUG_x( dump_sub(gv) );
- Perl_av_create_and_push(aTHX_ &PL_beginav, MUTABLE_SV(cv));
+ av_create_and_push(&PL_beginav, MUTABLE_SV(cv));
GvCV_set(gv,0); /* cv has been hijacked */
call_list(oldscope, PL_beginav);
@@ -12632,13 +12632,13 @@ S_process_special_blocks(pTHX_ I32 floor, const char *const fullname,
if (*name == 'E') {
if (strEQ(name, "END")) {
DEBUG_x( dump_sub(gv) );
- Perl_av_create_and_unshift_one(aTHX_ &PL_endav, MUTABLE_SV(cv));
+ av_create_and_unshift_one(&PL_endav, MUTABLE_SV(cv));
} else
return FALSE;
} else if (*name == 'U') {
if (strEQ(name, "UNITCHECK")) {
/* It's never too late to run a unitcheck block */
- Perl_av_create_and_unshift_one(aTHX_ &PL_unitcheckav, MUTABLE_SV(cv));
+ av_create_and_unshift_one(&PL_unitcheckav, MUTABLE_SV(cv));
}
else
return FALSE;
@@ -12648,7 +12648,7 @@ S_process_special_blocks(pTHX_ I32 floor, const char *const fullname,
/* diag_listed_as: Too late to run %s block */
ck_warner(packWARN(WARN_VOID),
"Too late to run CHECK block");
- Perl_av_create_and_unshift_one(aTHX_ &PL_checkav, MUTABLE_SV(cv));
+ av_create_and_unshift_one(&PL_checkav, MUTABLE_SV(cv));
}
else
return FALSE;
@@ -12686,7 +12686,7 @@ S_process_special_blocks(pTHX_ I32 floor, const char *const fullname,
SAVEFREESV(cv);
}
else
- Perl_av_create_and_push(aTHX_ &PL_initav, MUTABLE_SV(cv));
+ av_create_and_push(&PL_initav, MUTABLE_SV(cv));
}
else
return FALSE;
diff --git a/perl.c b/perl.c
index c9734a7df2..e522b2efbb 100644
--- a/perl.c
+++ b/perl.c
@@ -360,7 +360,7 @@ perl_construct(pTHXx)
#ifdef USE_ITHREADS
/* First entry is a list of empty elements. It needs to be initialised
else all hell breaks loose in S_find_uninit_var(). */
- Perl_av_create_and_push(aTHX_ &PL_regex_padav, newSVpvs(""));
+ av_create_and_push(&PL_regex_padav, newSVpvs(""));
PL_regex_pad = AvARRAY(PL_regex_padav);
Newxz(PL_stashpad, PL_stashpadmax, HV *);
#endif
@@ -2227,7 +2227,7 @@ S_moreswitch_m(pTHX_ char option, const char *s)
sv_catpvn(sv, s, end - s);
sv_catpvs(sv, "\0)");
}
- Perl_av_create_and_push(aTHX_ &PL_preambleav, sv);
+ av_create_and_push(&PL_preambleav, sv);
return end;
}
@@ -2402,7 +2402,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
"(qw%c%s%c)", 0, s, 0);
s += strlen(s);
}
- Perl_av_create_and_push(aTHX_ &PL_preambleav, opts_prog);
+ av_create_and_push(&PL_preambleav, opts_prog);
/* don't look for script or read stdin */
scriptname = BIT_BUCKET;
goto reswitch;
@@ -2544,8 +2544,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
if (inc0) {
/* if lib/buildcustomize.pl exists, it should not fail. If it does,
it should be reported immediately as a build failure. */
- (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav,
- newSVpvf(
+ (void)av_create_and_unshift_one(&PL_preambleav,
+ newSVpvf(
"BEGIN { my $f = q%c%s%" SVf "/buildcustomize.pl%c; "
"do {local $!; -f $f }"
" and do $f || die $@ || qq '$f: $!' }",
@@ -2560,8 +2560,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
SV *sitelib_sv = mayberelocate(raw_sitelib, strlen(raw_sitelib),
INCPUSH_CAN_RELOCATE);
const char *const sitelib = SvPVX(sitelib_sv);
- (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav,
- newSVpvf(
+ (void)av_create_and_unshift_one(&PL_preambleav,
+ newSVpvf(
"BEGIN { do {local $!; -f q%c%s/sitecustomize.pl%c} &&"
" do q%c%s/sitecustomize.pl%c }",
0, sitelib, 0,
@@ -5395,15 +5395,15 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
if (PL_savebegin) {
if (paramList == PL_beginav) {
/* save PL_beginav for compiler */
- Perl_av_create_and_push(aTHX_ &PL_beginav_save, MUTABLE_SV(cv));
+ av_create_and_push(&PL_beginav_save, MUTABLE_SV(cv));
}
else if (paramList == PL_checkav) {
/* save PL_checkav for compiler */
- Perl_av_create_and_push(aTHX_ &PL_checkav_save, MUTABLE_SV(cv));
+ av_create_and_push(&PL_checkav_save, MUTABLE_SV(cv));
}
else if (paramList == PL_unitcheckav) {
/* save PL_unitcheckav for compiler */
- Perl_av_create_and_push(aTHX_ &PL_unitcheckav_save, MUTABLE_SV(cv));
+ av_create_and_push(&PL_unitcheckav_save, MUTABLE_SV(cv));
}
} else {
SAVEFREESV(cv);
diff --git a/pp_pack.c b/pp_pack.c
index 17a543a68d..c1fd197a61 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -308,7 +308,7 @@ S_utf8_to_bytes(pTHX_ const char **s, const char *end, U8 *buf, SSize_t buf_len,
* */
if (this_msgs) {
while (av_count(this_msgs) > 0) {
- Perl_av_create_and_push(aTHX_ &msgs, av_shift(this_msgs));
+ av_create_and_push(&msgs, av_shift(this_msgs));
}
SvREFCNT_dec(this_msgs);