summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorPaul "LeoNerd" Evans <leonerd@leonerd.org.uk>2022-06-06 13:12:41 +0100
committerPaul Evans <leonerd@leonerd.org.uk>2022-06-20 13:36:52 +0100
commit1ea34a4b9664a7c2b95e9fa15c08471b27523fcb (patch)
tree8ebed375f5fd620214c02bee8f640b94b0947e93 /op.c
parent2c8b8b71354d7e18c0d1992c4e3aca061831a93a (diff)
downloadperl-1ea34a4b9664a7c2b95e9fa15c08471b27523fcb.tar.gz
Move the handy OpTYPE_set() macro out of op.c into op.h where other code can see it
Also defend it against side-effects in arguments, by allocating temporary variables.
Diffstat (limited to 'op.c')
-rw-r--r--op.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/op.c b/op.c
index 497ceb0240..d20b54c971 100644
--- a/op.c
+++ b/op.c
@@ -654,12 +654,6 @@ Perl_op_refcnt_dec(pTHX_ OP *o)
#define RETURN_UNLIMITED_NUMBER (PERL_INT_MAX / 2)
-#define OpTYPE_set(o,type) \
- STMT_START { \
- o->op_type = (OPCODE)type; \
- o->op_ppaddr = PL_ppaddr[type]; \
- } STMT_END
-
STATIC OP *
S_no_fh_allowed(pTHX_ OP *o)
{