diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-07-22 08:22:05 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2021-10-11 11:30:25 +0000 |
commit | 53a41f9c2c0671d8e97b2d47afa3130fe376f322 (patch) | |
tree | b68dbbbd2193f1198dbf18d0f7e79272885ef94e /sv.c | |
parent | cf927cca44ddf2f1b26c43b9d31ad08db4e46dab (diff) | |
download | perl-53a41f9c2c0671d8e97b2d47afa3130fe376f322.tar.gz |
Inline the xhv_aux struct in the main hash body
For now, memory for this structure is always allocated, even though it
isn't always flagged as being present.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -14462,8 +14462,7 @@ S_sv_dup_common(pTHX_ const SV *const ssv, CLONE_PARAMS *const param) XPVHV * const dxhv = (XPVHV*)SvANY(dsv); XPVHV * const sxhv = (XPVHV*)SvANY(ssv); char *darray; - Newx(darray, PERL_HV_ARRAY_ALLOC_BYTES(dxhv->xhv_max+1) - + (SvOOK(ssv) ? sizeof(struct xpvhv_aux) : 0), + Newx(darray, PERL_HV_ARRAY_ALLOC_BYTES(dxhv->xhv_max+1), char); HvARRAY(dsv) = (HE**)darray; while (i <= sxhv->xhv_max) { |