diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-22 00:19:45 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-23 06:06:23 +0000 |
| commit | 8d6dde3e637be6ce74eec8ca77c5be73d19f769a (patch) | |
| tree | eb37e8ea49be3485b48a74821f527ac1fde1a018 /hv.c | |
| parent | 276493cb78ba879defeed992c4543a6fe30f98ce (diff) | |
| download | perl-8d6dde3e637be6ce74eec8ca77c5be73d19f769a.tar.gz | |
applied patch, regen headers
Message-Id: <199806220819.EAA03295@monk.mps.ohio-state.edu>
Subject: [PATCH 5.004_67] Malloc size feedback
p4raw-id: //depot/perl@1201
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -665,7 +665,7 @@ hsplit(HV *hv) I32 oldsize = (I32) xhv->xhv_max + 1; /* sic(k) */ register I32 newsize = oldsize * 2; register I32 i; - register HE **a; + register HE **a = (HE**)xhv->xhv_array; register HE **b; register HE *entry; register HE **oentry; @@ -673,9 +673,8 @@ hsplit(HV *hv) I32 tmp; #endif - a = (HE**)xhv->xhv_array; nomemok = TRUE; -#ifdef STRANGE_MALLOC +#if defined(STRANGE_MALLOC) || defined(MYMALLOC) Renew(a, newsize, HE*); if (!a) { nomemok = FALSE; @@ -756,7 +755,7 @@ hv_ksplit(HV *hv, IV newmax) a = (HE**)xhv->xhv_array; if (a) { nomemok = TRUE; -#ifdef STRANGE_MALLOC +#if defined(STRANGE_MALLOC) || defined(MYMALLOC) Renew(a, newsize, HE*); if (!a) { nomemok = FALSE; |