diff options
| author | Karl Williamson <khw@cpan.org> | 2020-12-02 18:56:27 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-12-02 19:02:51 -0700 |
| commit | 8b40c6980a4ae3fa364f4921879001f097000652 (patch) | |
| tree | 9234f3ec212988f1f2fb582868ae8a773b1727f4 /op.h | |
| parent | 6483d46092dcc01b5b6d171b889f39b7546a4f79 (diff) | |
| download | perl-8b40c6980a4ae3fa364f4921879001f097000652.tar.gz | |
Revert "op.h: Restrict to core certain internal symbols"
This reverts commit 1d6cadf136bf2c85058a5359fb48b09b3ea9fe6f.
Due to cpan breakage: GH #18374 #18375 #18376
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 51 |
1 files changed, 24 insertions, 27 deletions
@@ -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) |