summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-10-17 06:43:55 -0600
committerKarl Williamson <khw@cpan.org>2020-11-29 09:01:40 -0700
commita0412c00a8c16af0955edebcaf0d271542c97582 (patch)
treebba9055f01b17e984276a34996ce23e4ac4e3705 /cop.h
parent055663bc9d17f8e2ef5ef0a4233d89dd4a69d2a2 (diff)
downloadperl-a0412c00a8c16af0955edebcaf0d271542c97582.tar.gz
cop.h: Extend core-only portion
This encloses some #defines in a PERL_CORE section, as their only use is in the macro immediately following, already confined to core.
Diffstat (limited to 'cop.h')
-rw-r--r--cop.h4
1 files changed, 3 insertions, 1 deletions
diff --git a/cop.h b/cop.h
index 17df8b5663..0ddcd48f89 100644
--- a/cop.h
+++ b/cop.h
@@ -818,6 +818,9 @@ struct subst {
void * sbu_rxres;
REGEXP * sbu_rx;
};
+
+#ifdef PERL_CORE
+
#define sb_iters cx_u.cx_subst.sbu_iters
#define sb_maxiters cx_u.cx_subst.sbu_maxiters
#define sb_rflags cx_u.cx_subst.sbu_rflags
@@ -831,7 +834,6 @@ struct subst {
#define sb_rxres cx_u.cx_subst.sbu_rxres
#define sb_rx cx_u.cx_subst.sbu_rx
-#ifdef PERL_CORE
# define CX_PUSHSUBST(cx) CXINC, cx = CX_CUR(), \
cx->blk_oldsaveix = oldsave, \
cx->sb_iters = iters, \