+7
-7
lines changedFilter options
+7
-7
lines changed Original file line number Diff line number Diff line change
@@ -1031,13 +1031,13 @@ C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
1031 1031
/* should match anything that uses ck_ftst in regen/opcodes */
1032 1032
#define OP_IS_STAT(op) (OP_IS_FILETEST(op) || (op) == OP_LSTAT || (op) == OP_STAT)
1033 1033 1034 -
# define OpHAS_SIBLING(o) (cBOOL((o)->op_moresib))
1035 -
# define OpSIBLING(o) (0 + (o)->op_moresib ? (o)->op_sibparent : NULL)
1036 -
# define OpMORESIB_set(o, sib) ((o)->op_moresib = 1, (o)->op_sibparent = (sib))
1037 -
# define OpLASTSIB_set(o, parent) \
1038 -
((o)->op_moresib = 0, (o)->op_sibparent = (parent))
1039 -
# define OpMAYBESIB_set(o, sib, parent) \
1040 -
((o)->op_sibparent = ((o)->op_moresib = cBOOL(sib)) ? (sib) : (parent))
1034 +
#define OpHAS_SIBLING(o) (cBOOL((o)->op_moresib))
1035 +
#define OpSIBLING(o) (0 + (o)->op_moresib ? (o)->op_sibparent : NULL)
1036 +
#define OpMORESIB_set(o, sib) ((o)->op_moresib = 1, (o)->op_sibparent = (sib))
1037 +
#define OpLASTSIB_set(o, parent) \
1038 +
((o)->op_moresib = 0, (o)->op_sibparent = (parent))
1039 +
#define OpMAYBESIB_set(o, sib, parent) \
1040 +
((o)->op_sibparent = ((o)->op_moresib = cBOOL(sib)) ? (sib) : (parent))
1041 1041 1042 1042
#if !defined(PERL_CORE) && !defined(PERL_EXT)
1043 1043
/* for backwards compatibility only */
You can’t perform that action at this time.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4