From 1bb4c83566b57946d55795ecb4df42c7692478c2 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 5 Apr 2006 20:19:34 +0000
Subject: Perl_save_alloc can use the new(er) SSGROW rather than looping.

p4raw-id: //depot/perl@27726
---
 scope.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/scope.c b/scope.c
index 0070f6301f..fcdf86f39f 100644
--- a/scope.c
+++ b/scope.c
@@ -590,9 +590,7 @@ Perl_save_alloc(pTHX_ I32 size, I32 pad)
 				- (char*)PL_savestack);
     register const I32 elems = 1 + ((size + pad - 1) / sizeof(*PL_savestack));
 
-    /* SSCHECK may not be good enough */
-    while (PL_savestack_ix + elems + 2 > PL_savestack_max)
-	savestack_grow();
+    SSGROW(elems + 2);
 
     PL_savestack_ix += elems;
     SSPUSHINT(elems);
-- 
cgit v1.2.1