This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "op.h: Restrict to core certain internal symbols"
authorKarl Williamson <khw@cpan.org>
Thu, 3 Dec 2020 01:56:27 +0000 (18:56 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 3 Dec 2020 02:02:51 +0000 (19:02 -0700)
This reverts commit 1d6cadf136bf2c85058a5359fb48b09b3ea9fe6f.

Due to cpan breakage: GH #18374 #18375 #18376

op.h

diff --git a/op.h b/op.h
index b7d762a..9750717 100644 (file)
--- a/op.h
+++ b/op.h
@@ -458,31 +458,30 @@ struct loop {
 #define cCOP           cCOPx(PL_op)
 #define cLOOP          cLOOPx(PL_op)
 
-#if defined(PERL_CORE) || defined(PERL_EXT)
-#  define cUNOPo        cUNOPx(o)
-#  define cUNOP_AUXo    cUNOP_AUXx(o)
-#  define cBINOPo       cBINOPx(o)
-#  define cLISTOPo      cLISTOPx(o)
-#  define cLOGOPo       cLOGOPx(o)
-#  define cPMOPo        cPMOPx(o)
-#  define cSVOPo        cSVOPx(o)
-#  define cPADOPo       cPADOPx(o)
-#  define cPVOPo        cPVOPx(o)
-#  define cCOPo         cCOPx(o)
-#  define cLOOPo        cLOOPx(o)
-
-#  define kUNOP         cUNOPx(kid)
-#  define kUNOP_AUX     cUNOP_AUXx(kid)
-#  define kBINOP        cBINOPx(kid)
-#  define kLISTOP       cLISTOPx(kid)
-#  define kLOGOP        cLOGOPx(kid)
-#  define kPMOP         cPMOPx(kid)
-#  define kSVOP         cSVOPx(kid)
-#  define kPADOP        cPADOPx(kid)
-#  define kPVOP         cPVOPx(kid)
-#  define kCOP          cCOPx(kid)
-#  define kLOOP         cLOOPx(kid)
-#endif
+#define cUNOPo         cUNOPx(o)
+#define cUNOP_AUXo     cUNOP_AUXx(o)
+#define cBINOPo                cBINOPx(o)
+#define cLISTOPo       cLISTOPx(o)
+#define cLOGOPo                cLOGOPx(o)
+#define cPMOPo         cPMOPx(o)
+#define cSVOPo         cSVOPx(o)
+#define cPADOPo                cPADOPx(o)
+#define cPVOPo         cPVOPx(o)
+#define cCOPo          cCOPx(o)
+#define cLOOPo         cLOOPx(o)
+
+#define kUNOP          cUNOPx(kid)
+#define kUNOP_AUX      cUNOP_AUXx(kid)
+#define kBINOP         cBINOPx(kid)
+#define kLISTOP                cLISTOPx(kid)
+#define kLOGOP         cLOGOPx(kid)
+#define kPMOP          cPMOPx(kid)
+#define kSVOP          cSVOPx(kid)
+#define kPADOP         cPADOPx(kid)
+#define kPVOP          cPVOPx(kid)
+#define kCOP           cCOPx(kid)
+#define kLOOP          cLOOPx(kid)
+
 
 typedef enum {
     OPclass_NULL,     /*  0 */
@@ -527,14 +526,12 @@ typedef enum {
 
 #define        cMETHOPx_meth(v)        cSVOPx_sv(v)
 
-#if defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD)
 #define        cGVOP_gv                cGVOPx_gv(PL_op)
 #define        cGVOPo_gv               cGVOPx_gv(o)
 #define        kGVOP_gv                cGVOPx_gv(kid)
 #define cSVOP_sv               cSVOPx_sv(PL_op)
 #define cSVOPo_sv              cSVOPx_sv(o)
 #define kSVOP_sv               cSVOPx_sv(kid)
-#endif
 
 #ifndef PERL_CORE
 #  define Nullop ((OP*)NULL)