diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-12-23 08:42:17 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-12-23 18:31:55 -0700 |
commit | 9d0bd308bcede234634a1749efe48171092bee4b (patch) | |
tree | 74276f88ad10034f585453d0d3e4fd4c8af75d58 | |
parent | 5ac5d9023ba9865ab255d9da42611d9f705eb9b8 (diff) | |
download | perl-9d0bd308bcede234634a1749efe48171092bee4b.tar.gz |
regcomp.c: Save computed value in variable for later use
This will be used in future commits. Retrieving it via OP() doesn't
work in pass1 of the regex compiler.
-rw-r--r-- | regcomp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -8836,21 +8836,21 @@ tryagain: STRLEN foldlen; U8 tmpbuf[UTF8_MAXBYTES_CASE+1], *foldbuf; regnode * orig_emit; + U8 node_type; ender = 0; orig_emit = RExC_emit; /* Save the original output node position in case we need to output a different node type */ - ret = reg_node(pRExC_state, - (U8) ((! FOLD) ? EXACT + node_type = (U8) ((! FOLD) ? EXACT : (LOC) ? EXACTFL : (MORE_ASCII_RESTRICTED) ? EXACTFA : (AT_LEAST_UNI_SEMANTICS) ? EXACTFU - : EXACTF) - ); + : EXACTF); + ret = reg_node(pRExC_state, node_type); s = STRING(ret); for (len = 0, p = RExC_parse - 1; len < 127 && p < RExC_end; |