Skip to content

Commit 316d8ea

Browse files
committed
Revert "Move Perl_newAV() from mathoms to av.h"
This reverts commit 6a3ea4b.
1 parent e3f0f47 commit 316d8ea

File tree

5 files changed

+17
-8
lines changed

5 files changed

+17
-8
lines changed

av.h

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -236,8 +236,7 @@ to fit one element without extending:
236236
237237
*/
238238

239-
#define Perl_newAV(mTHX) MUTABLE_AV(Perl_newSV_type(aTHX_ SVt_PVAV))
240-
239+
#define newAV() MUTABLE_AV(newSV_type(SVt_PVAV))
241240
#define newAV_mortal() MUTABLE_AV(newSV_type_mortal(SVt_PVAV))
242241
#define newAV_alloc_x(size) av_new_alloc(size,0)
243242
#define newAV_alloc_xz(size) av_new_alloc(size,1)

embed.fnc

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2176,7 +2176,7 @@ Xdp |CV * |newATTRSUB_x |I32 floor \
21762176
|NULLOK OP *attrs \
21772177
|NULLOK OP *block \
21782178
|bool o_is_gv
2179-
ARdmp |AV * |newAV
2179+
AMRbdp |AV * |newAV
21802180
ARdm |AV * |newAV_alloc_x |SSize_t size
21812181
ARdm |AV * |newAV_alloc_xz |SSize_t size
21822182
ARdp |AV * |newAVav |NULLOK AV *oav

embed.h

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -410,7 +410,6 @@
410410
# define newANONSUB(a,b,c) Perl_newANONSUB(aTHX_ a,b,c)
411411
# define newARGDEFELEMOP(a,b,c) Perl_newARGDEFELEMOP(aTHX_ a,b,c)
412412
# define newASSIGNOP(a,b,c,d) Perl_newASSIGNOP(aTHX_ a,b,c,d)
413-
# define newAV() Perl_newAV(aTHX)
414413
# define newAVREF(a) Perl_newAVREF(aTHX_ a)
415414
# define newAVav(a) Perl_newAVav(aTHX_ a)
416415
# define newAVhv(a) Perl_newAVhv(aTHX_ a)

mathoms.c

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -135,6 +135,16 @@ Perl_sv_nounlocking(pTHX_ SV *sv)
135135
PERL_UNUSED_ARG(sv);
136136
}
137137

138+
AV *
139+
Perl_newAV(pTHX)
140+
{
141+
return MUTABLE_AV(newSV_type(SVt_PVAV));
142+
/* sv_upgrade does AvREAL_only():
143+
AvALLOC(av) = 0;
144+
AvARRAY(av) = NULL;
145+
AvMAX(av) = AvFILLp(av) = -1; */
146+
}
147+
138148
void
139149
Perl_save_freesv(pTHX_ SV *sv)
140150
{

proto.h

Lines changed: 5 additions & 4 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)