From d2af2719f1469dcb5f93ecdd69cd33aa6799b78a Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Fri, 25 Dec 2015 22:41:21 +0000 Subject: eliminate PERL_STACK_OVERFLOW_CHECK This macro is defined as NOOP on all platforms except for MacOS classic, where it was added as a hook to allow for OSes that have a small CPU stack size. Since pp_entersub et al don't actually use the CPU stack, this hook looks misconceived from the beginning. So remove all uses of it in the core. --- pp_sys.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'pp_sys.c') diff --git a/pp_sys.c b/pp_sys.c index ea99011594..3be4be3b76 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -1391,10 +1391,8 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) PUSHBLOCK(cx, CXt_FORMAT, PL_stack_sp); PUSHFORMAT(cx, retop); - if (CvDEPTH(cv) >= 2) { - PERL_STACK_OVERFLOW_CHECK(); + if (CvDEPTH(cv) >= 2) pad_push(CvPADLIST(cv), CvDEPTH(cv)); - } PAD_SET_CUR_NOSAVE(CvPADLIST(cv), CvDEPTH(cv)); setdefout(gv); /* locally select filehandle so $% et al work */ -- cgit v1.2.1