grow PL_tmps_stack more efficiently; make it more amenable to

STRESS_REALLOC testing

p4raw-id: //depot/perl@3215

1 files changed, 13 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 4d62ae8368..b8d45584e2 100644
--- a/scope.c
+++ b/scope.c
@@ -135,6 +135,19 @@ savestack_grow(void)
 #undef GROW
 
 void
+tmps_grow(I32 n)
+{
+    dTHR;
+#ifndef STRESS_REALLOC
+    if (n < 128)
+	n = (PL_tmps_max < 512) ? 128 : 512;
+#endif
+    PL_tmps_max = PL_tmps_ix + n + 1;
+    Renew(PL_tmps_stack, PL_tmps_max, SV*);
+}
+
+
+void
 free_tmps(void)
 {
     dTHR;