Skip to content

op.h: Restrict to core certain internal symbols #18346

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 1 commit into from
Nov 29, 2020
Merged

op.h: Restrict to core certain internal symbols #18346

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
51 changes: 27 additions & 24 deletions op.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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 */
Expand Down Expand Up @@ -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)
Expand Down