Reintroducing the labeled ordered choice (tests without it passed)

1 files changed, 11 insertions, 0 deletions

diff --git a/lpvm.c b/lpvm.c
index 911b4c5..d2b1f55 100644
--- a/lpvm.c
+++ b/lpvm.c
@@ -277,6 +277,17 @@ const char *match (lua_State *L, const char *o, const char *s, const char *e,
         p += 2;
         continue;
       }
+      case ILabChoice: { /* labeled failure */
+        if (stack == stacklimit)
+          stack = doublestack(L, &stacklimit, ptop);
+        stack->p = p + getoffset(p);
+        stack->s = s;
+        stack->ls = (const Labelset *) ((p + 2)->buff);
+        stack->caplevel = captop;
+        stack++;
+        p += (CHARSETINSTSIZE - 1) + 2;
+        continue;
+      }
       case IRecov: { /* labeled failure */
         if (stack == stacklimit)
           stack = doublestack(L, &stacklimit, ptop);