summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-02 13:36:01 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-02 13:36:01 +0000
commit7a9b70e91d2c0aa19f8cec5b0f8c133492a19280 (patch)
treea7189a0b6ed5aba44b00173c76f0b082b3724e0a /hv.c
parent345dbb93fc4813c4387eb6b1eedefc6d79a752d0 (diff)
downloadperl-7a9b70e91d2c0aa19f8cec5b0f8c133492a19280.tar.gz
Changes 24660 and 24665 both introduced errors into the USEMYMALLOC
code. Plus change 24672 appears to break under USEMYMALLOC, so revert it for now. p4raw-id: //depot/perl@24676
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/hv.c b/hv.c
index 7df39770b2..5f0f485b97 100644
--- a/hv.c
+++ b/hv.c
@@ -1126,7 +1126,7 @@ S_hsplit(pTHX_ HV *hv)
return;
}
if (SvOOK(hv)) {
- Copy(HvAUX(hv), &a[newsize * sizeof(HE*)], 1, struct xpvhv_aux);
+ Copy(&a[oldsize * sizeof(HE*)], &a[newsize * sizeof(HE*)], 1, struct xpvhv_aux);
}
#else
New(2, a, PERL_HV_ARRAY_ALLOC_BYTES(newsize)
@@ -1296,7 +1296,7 @@ Perl_hv_ksplit(pTHX_ HV *hv, IV newmax)
return;
}
if (SvOOK(hv)) {
- Copy(HvAUX(hv), &a[newsize * sizeof(HE*)], 1, struct xpvhv_aux);
+ Copy(&a[oldsize * sizeof(HE*)], &a[newsize * sizeof(HE*)], 1, struct xpvhv_aux);
}
#else
New(2, a, PERL_HV_ARRAY_ALLOC_BYTES(newsize)