From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Fri, 24 May 2019 15:26:54 +0000 (+0200)
Subject: add some more ops
X-Git-Tag: emacs-28.0.90~2727^2~1524
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ad90d410813dae9d2fda3c251d14678b8f104d0;p=emacs.git

add some more ops
---

diff --git a/src/comp.c b/src/comp.c
index 8745908708a..259cba6691b 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -633,22 +633,22 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
 	  printf("Bgeq\n");
 	  break;
 	case Bdiff:
-	  printf("Bdiff\n");
+	  EMIT_SCRATCH_CALL_N ("Fminus", 2);
 	  break;
 	case Bnegate:
 	  printf("Bnegate\n");
 	  break;
 	case Bplus:
-	  printf("Bplus\n");
+	  EMIT_SCRATCH_CALL_N ("Fplus", 2);
 	  break;
 	case Bmax:
-	  printf("Bmax\n");
+	  EMIT_SCRATCH_CALL_N ("Fmax", 2);
 	  break;
 	case Bmin:
-	  printf("Bmin\n");
+	  EMIT_SCRATCH_CALL_N ("Fmin", 2);
 	  break;
 	case Bmult:
-	  printf("Bmult\n");
+	  EMIT_SCRATCH_CALL_N ("Ftimes", 2);
 	  break;
 	case Bpoint:
 	  printf("Bpoint\n");
@@ -656,12 +656,13 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length,
 	case Bsave_current_buffer:
 	  printf("Bsave_current_buffer\n");
 	  break;
-	case Bgoto_char:
-	  printf("Bgoto_char\n");
-	  break;
+
+	CASE_CALL_NARGS (goto_char, 1);
+
 	case Binsert:
-	  printf("Binsert\n");
+	  EMIT_SCRATCH_CALL_N ("Finsert", 1);
 	  break;
+
 	case Bpoint_max:
 	  printf("Bpoint_max\n");
 	  break;