Make the arena size changeable at compile time, and up the default by

a factor of 4.

p4raw-id: //depot/perl@24405

1 files changed, 2 insertions, 2 deletions

diff --git a/hv.c b/hv.c
index 8345ee5460..2f2c7f374a 100644
--- a/hv.c
+++ b/hv.c
@@ -61,12 +61,12 @@ S_more_he(pTHX)
     register HE* he;
     register HE* heend;
     XPV *ptr;
-    New(54, ptr, 1008/sizeof(XPV), XPV);
+    New(54, ptr, PERL_ARENA_SIZE/sizeof(XPV), XPV);
     ptr->xpv_pv = (char*)PL_he_arenaroot;
     PL_he_arenaroot = ptr;
 
     he = (HE*)ptr;
-    heend = &he[1008 / sizeof(HE) - 1];
+    heend = &he[PERL_ARENA_SIZE / sizeof(HE) - 1];
     PL_he_root = ++he;
     while (he < heend) {
 	HeNEXT(he) = (HE*)(he + 1);