arena-rework : consolidated patch

Message-ID: <43F0F649.9040205@gmail.com>

Tweaked somewhat to split the arena boolean from the arena_size,
and with the PTE still doubling-up with one of the SV types in the
array.

p4raw-id: //depot/perl@27215

1 files changed, 1 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index f8d585164b..6be56dba4f 100644
--- a/hv.c
+++ b/hv.c
@@ -46,7 +46,7 @@ S_more_he(pTHX)
     he = (HE*) Perl_get_arena(aTHX_ PERL_ARENA_SIZE);
 
     heend = &he[PERL_ARENA_SIZE / sizeof(HE) - 1];
-    PL_body_roots[HE_SVSLOT] = ++he;
+    PL_body_roots[HE_SVSLOT] = he;
     while (he < heend) {
 	HeNEXT(he) = (HE*)(he + 1);
 	he++;