Change 27726 by [EMAIL PROTECTED] on 2006/04/05 20:19:34
Perl_save_alloc can use the new(er) SSGROW rather than looping.
Affected files ...
... //depot/perl/scope.c#182 edit
Differences ...
==== //depot/perl/scope.c#182 (text) ====
Index: perl/scope.c
--- perl/scope.c#181~27671~ 2006-04-02 03:08:04.000000000 -0700
+++ perl/scope.c 2006-04-05 13:19:34.000000000 -0700
@@ -590,9 +590,7 @@
- (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);
End of Patch.
