diff options
| author | Karl Williamson <khw@cpan.org> | 2014-09-16 17:16:47 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-09-29 11:07:39 -0600 |
| commit | 9990d5ab621b83dea3adb80c343aff125fe9764b (patch) | |
| tree | 853129d0e9d992ca9ae29f030bef10d507af689b /proto.h | |
| parent | 975a06f7f899d1dd89d8a66defc0b3ee41013d1f (diff) | |
| download | perl-9990d5ab621b83dea3adb80c343aff125fe9764b.tar.gz | |
regcomp.c: Add a function and use it
This adds a function to allocate a regnode with 2 32-bit arguments, and
uses it, rather than the ad-hoc code that did the same thing previously.
This is in preparation for this code being used in a 2nd place in a
future commit.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -6918,6 +6918,11 @@ STATIC regnode* S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U3 #define PERL_ARGS_ASSERT_REG \ assert(pRExC_state); assert(flagp) +STATIC regnode* S_reg2Lanode(pTHX_ RExC_state_t *pRExC_state, const U8 op, const U32 arg1, const I32 arg2) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_REG2LANODE \ + assert(pRExC_state) + STATIC regnode* S_reg_node(pTHX_ RExC_state_t *pRExC_state, U8 op) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_REG_NODE \ |