diff options
| author | Karl Williamson <khw@cpan.org> | 2020-10-17 07:04:41 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-11-29 07:44:57 -0700 |
| commit | 1d6cadf136bf2c85058a5359fb48b09b3ea9fe6f (patch) | |
| tree | 6a2c3a577450102a863e9b9d8aa71297cb6d520e /op.h | |
| parent | c2b527b3ea8007dff526018f2f60dba8ff99b294 (diff) | |
| download | perl-1d6cadf136bf2c85058a5359fb48b09b3ea9fe6f.tar.gz | |
op.h: Restrict to core certain internal symbols
so that they aren't accessible to XS code and won't be picked up by
autodoc
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 51 |
1 files changed, 27 insertions, 24 deletions
@@ -458,30 +458,31 @@ struct loop { #define cCOP cCOPx(PL_op) #define cLOOP cLOOPx(PL_op) -#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) - +#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 typedef enum { OPclass_NULL, /* 0 */ @@ -526,12 +527,14 @@ 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) |