summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-12-25 22:41:21 +0000
committerDavid Mitchell <davem@iabyn.com>2016-02-03 09:19:18 +0000
commitd2af2719f1469dcb5f93ecdd69cd33aa6799b78a (patch)
treed4d68c273971d3b6a11af14d9a388c3703bce8f9 /cop.h
parent53d3542d62a6150413de482742e24f24b82112a8 (diff)
downloadperl-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 'cop.h')
-rw-r--r--cop.h8
1 files changed, 2 insertions, 6 deletions
diff --git a/cop.h b/cop.h
index 54a5b1cb9b..45a39c15fc 100644
--- a/cop.h
+++ b/cop.h
@@ -1351,10 +1351,8 @@ See L<perlcall/LIGHTWEIGHT CALLBACKS>.
saveix_floor = PL_savestack_ix; \
if (!(flags & CXp_SUB_RE_FAKE)) \
CvDEPTH(cv)++; \
- if (CvDEPTH(cv) >= 2) { \
- PERL_STACK_OVERFLOW_CHECK(); \
+ if (CvDEPTH(cv) >= 2) \
Perl_pad_push(aTHX_ padlist, CvDEPTH(cv)); \
- } \
PAD_SET_CUR_NOSAVE(padlist, CvDEPTH(cv)); \
multicall_cv = cv; \
PERL_UNUSED_VAR(multicall_cv); /* for API */ \
@@ -1400,10 +1398,8 @@ See L<perlcall/LIGHTWEIGHT CALLBACKS>.
PUSHSUB(cx); \
if (!(flags & CXp_SUB_RE_FAKE)) \
CvDEPTH(cv)++; \
- if (CvDEPTH(cv) >= 2) { \
- PERL_STACK_OVERFLOW_CHECK(); \
+ if (CvDEPTH(cv) >= 2) \
Perl_pad_push(aTHX_ padlist, CvDEPTH(cv)); \
- } \
PAD_SET_CUR_NOSAVE(padlist, CvDEPTH(cv)); \
multicall_cv = cv; \
multicall_cop = CvSTART(cv); \