diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-12-23 08:42:17 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-19 11:58:17 -0700 |
commit | d82f99444a5b81603cb066efa358862a46ce3275 (patch) | |
tree | f2b5b6d5d345245dfbfa4e8bee09b7991538909f /regcomp.c | |
parent | c46d03cf70a58e85dfbfd7f78d6fdbb5244808c5 (diff) | |
download | perl-d82f99444a5b81603cb066efa358862a46ce3275.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.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -9019,21 +9019,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; |