Skip to content

Commit 5d32d26

Browse files
committed
enable PERL_OP_PARENT by default.
This makes the last op_sibling field in a chain of OP siblings point back the parent node rather than being NULL, with the endness instead being indicated by a flag. See http://nntp.perl.org/group/perl.perl5.porters/235635
1 parent 956f01a commit 5d32d26

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

perl.h

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2666,6 +2666,11 @@ typedef AV PAD;
26662666
typedef struct padnamelist PADNAMELIST;
26672667
typedef struct padname PADNAME;
26682668

2669+
/* enable PERL_OP_PARENT by default */
2670+
#if !defined(PERL_OP_PARENT) && !defined(PERL_NO_OP_PARENT)
2671+
# define PERL_OP_PARENT
2672+
#endif
2673+
26692674
/* enable PERL_COPY_ON_WRITE by default */
26702675
#if !defined(PERL_COPY_ON_WRITE) && !defined(PERL_NO_COW)
26712676
# define PERL_COPY_ON_WRITE

0 commit comments

Comments
 (0)