add Bunbind

diff --git a/src/comp.c b/src/comp.c
index 315f74d9674988c62efe0ea554e6c0f73a58fde3..e7a8b9b0e9fb5c32bd3e2412202d13948d46f254 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -497,29 +497,30 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
            PUSH (gcc_jit_lvalue_as_rvalue (res));
            break;
          }
+
+       case Bunbind6:
+         op = FETCH;
+         goto dounbind;
+
+       case Bunbind7:
+         op = FETCH2;
+         goto dounbind;
+
        case Bunbind:
-         printf("Bunbind\n");
-         break;
        case Bunbind1:
-         printf("Bunbind1\n");
-         break;
        case Bunbind2:
-         printf("Bunbind2\n");
-         break;
        case Bunbind3:
-         printf("Bunbind3\n");
-         break;
        case Bunbind4:
-         printf("Bunbind4\n");
-         break;
        case Bunbind5:
-         printf("Bunbind5\n");
-         break;
-       case Bunbind6:
-         printf("Bunbind6\n");
-         break;
-       case Bunbind7:
-         printf("Bunbind7\n");
+         op -= Bunbind;
+       dounbind:
+         {
+           args[0] = gcc_jit_context_new_rvalue_from_int(comp.ctxt,
+                                                         comp.ptrdiff_type,
+                                                         op);
+
+           res = jit_emit_call ("unbind_n", 1, args);
+         }
          break;
        case Bpophandler:
          printf("Bpophandler\n");