diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-06-06 13:12:41 +0100 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-06-20 13:36:52 +0100 |
commit | 1ea34a4b9664a7c2b95e9fa15c08471b27523fcb (patch) | |
tree | 8ebed375f5fd620214c02bee8f640b94b0947e93 /op.c | |
parent | 2c8b8b71354d7e18c0d1992c4e3aca061831a93a (diff) | |
download | perl-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.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -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) { |