diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-25 22:41:21 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:18 +0000 |
commit | d2af2719f1469dcb5f93ecdd69cd33aa6799b78a (patch) | |
tree | d4d68c273971d3b6a11af14d9a388c3703bce8f9 /pp_sys.c | |
parent | 53d3542d62a6150413de482742e24f24b82112a8 (diff) | |
download | perl-d2af2719f1469dcb5f93ecdd69cd33aa6799b78a.tar.gz |
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.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -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 */ |