My working unpac space for OCaml projects in development
added missing lre_poll_timeout()
+2
-13
+2
-13
vendor/git/quickjs-c/libregexp.c
+2
-13
vendor/git/quickjs-c/libregexp.c
···
2764
2764
if (type != RE_EXEC_STATE_LOOKAHEAD)
2765
2765
break;
2766
2766
}
2767
+
if (lre_poll_timeout(s))
2768
+
return LRE_RET_TIMEOUT;
2767
2769
break;
2768
2770
case REOP_lookahead_match:
2769
2771
/* pop all the saved states until reaching the start of
···
2866
2868
case REOP_negative_lookahead:
2867
2869
val = get_u32(pc);
2868
2870
pc += 4;
2869
-
if (opcode == REOP_lookahead && bp != s->stack_buf && 0) {
2870
-
int i;
2871
-
/* save all the capture state so that they can be
2872
-
restored in case of failure after the lookahead
2873
-
matches */
2874
-
idx = 4 * s->capture_count;
2875
-
CHECK_STACK_SPACE(idx);
2876
-
for(i = 0; i < 2 * s->capture_count; i++) {
2877
-
sp[0].val = i;
2878
-
sp[1].ptr = capture[i];
2879
-
sp += 2;
2880
-
}
2881
-
}
2882
2871
CHECK_STACK_SPACE(3);
2883
2872
sp[0].ptr = (uint8_t *)(pc + (int)val);
2884
2873
sp[1].ptr = (uint8_t *)cptr;