From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Fri, 24 May 2019 08:45:14 +0000 (+0200)
Subject: add Bunbind
X-Git-Tag: emacs-28.0.90~2727^2~1538
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f2529df7d4663597d6ac72ac001def4cd049c1b;p=emacs.git

add Bunbind
---

diff --git a/src/comp.c b/src/comp.c
index 315f74d9674..e7a8b9b0e9f 100644
--- 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");