X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=src%2F5011001%2Fregcomp.c;h=b68a456263e03922c3daf038312cab58f3dfcd2c;hb=21c1861888f69168d6ade4690b79b806752f56d8;hp=dbd9339d357d429e822a4751f42ff86e185a6fe9;hpb=be51951333b8f0da55af1243a039e74bb15dedcd;p=perl%2Fmodules%2Fre-engine-Hooks.git diff --git a/src/5011001/regcomp.c b/src/5011001/regcomp.c index dbd9339..b68a456 100644 --- a/src/5011001/regcomp.c +++ b/src/5011001/regcomp.c @@ -2149,6 +2149,7 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *firs Set_Node_Offset_Length(convert,mjd_offset,mjd_nodelen); }); } /* end node insert */ + REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, convert); RExC_rxi->data->data[ data_slot + 1 ] = (void*)widecharmap; #ifdef DEBUGGING RExC_rxi->data->data[ data_slot + TRIE_WORDS_OFFSET ] = (void*)trie_words; @@ -8590,7 +8591,7 @@ S_reg_node(pTHX_ RExC_state_t *pRExC_state, U8 op) NODE_ALIGN_FILL(ret); ptr = ret; FILL_ADVANCE_NODE(ptr, op); - REH_CALL_REGCOMP_HOOK(pRExC_state->rx, (ptr) - 1); + REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, (ptr) - 1); #ifdef RE_TRACK_PATTERN_OFFSETS if (RExC_offsets) { /* MJD */ MJD_OFFSET_DEBUG(("%s:%d: (op %s) %s %"UVuf" (len %"UVuf") (max %"UVuf").\n", @@ -8646,7 +8647,7 @@ S_reganode(pTHX_ RExC_state_t *pRExC_state, U8 op, U32 arg) NODE_ALIGN_FILL(ret); ptr = ret; FILL_ADVANCE_NODE_ARG(ptr, op, arg); - REH_CALL_REGCOMP_HOOK(pRExC_state->rx, (ptr) - 2); + REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, (ptr) - 2); #ifdef RE_TRACK_PATTERN_OFFSETS if (RExC_offsets) { /* MJD */ MJD_OFFSET_DEBUG(("%s(%d): (op %s) %s %"UVuf" <- %"UVuf" (max %"UVuf").\n", @@ -8763,7 +8764,7 @@ S_reginsert(pTHX_ RExC_state_t *pRExC_state, U8 op, regnode *opnd, U32 depth) #endif src = NEXTOPER(place); FILL_ADVANCE_NODE(place, op); - REH_CALL_REGCOMP_HOOK(pRExC_state->rx, (place) - 1); + REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, (place) - 1); Zero(src, offset, regnode); }