From: Chip Salzenberg <chip@perl.com>
Date: Tue, 18 Feb 1997 00:20:07 +0000 (+1200)
Subject: Undo signal patch -- it broke die() in signal
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4bf61a0fda67b03da87e21b660bbe0d541b8f3ef;p=p5sagit%2Fp5-mst-13.2.git

Undo signal patch -- it broke die() in signal
---

diff --git a/mg.c b/mg.c
index f42a4ad..318b7fe 100644
--- a/mg.c
+++ b/mg.c
@@ -1545,24 +1545,11 @@ int sig;
     SV *sv;
     CV *cv;
     AV *oldstack;
-    bool long_savestack = (savestack_ix + 14) < savestack_max;
-    bool long_cxstack = (cxstack_ix + 1) < cxstack_max;
-
-    /* Protect PUSHXXX in progress. */
-    if (long_cxstack)
-	cxstack_ix++;
 
     if (!psig_ptr[sig])
 	die("Signal SIG%s received, but no signal handler set.\n",
 	    sig_name[sig]);
 
-    /*
-     * Protect save in progress.  Max number of items pushed there is
-     * 3*n or 4. We cannot fix infinity, so we fix 4 (in fact 5).
-     */
-    if (long_savestack)
-	savestack_ix += 5;
-
     cv = sv_2cv(psig_ptr[sig],&st,&gv,TRUE);
     if (!cv || !CvROOT(cv)) {
 	if (dowarn)
@@ -1589,10 +1576,6 @@ int sig;
     perl_call_sv((SV*)cv, G_DISCARD);
 
     SWITCHSTACK(signalstack, oldstack);
-    if (long_savestack)
-	savestack_ix -= 5;	/* Unprotect save in progress. */
-    if (long_cxstack)
-	cxstack_ix--;		/* Unprotect PUSHXXX in progress. */
-    
+
     return;
 }