mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

op_reg_common.h: Convert _o to legal name

Browse Source
This commit is contained in:
Karl Williamson 2025-08-14 14:12:18 -06:00
parent 1da5249c65
commit 9d2aa8819e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scope.h
View File

@ -304,10 +304,10 @@ casts it to a pointer of that C<type>.
# define save_freeop(op) \
STMT_START { \
OP * const _o = (OP *)(op); \
assert(!_o->op_savefree); \
_o->op_savefree = 1; \
save_pushptr((void *)(_o), SAVEt_FREEOP); \
OP * const o_ = (OP *)(op); \
assert(!o_->op_savefree); \
o_->op_savefree = 1; \
save_pushptr((void *)(o_), SAVEt_FREEOP); \
} STMT_END
#define save_freepv(pv) save_pushptr((void *)(pv), SAVEt_FREEPV)