From 45a4510738a0878267fca5fdd687981c70209023 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 20 Jul 2019 17:22:13 +0200
Subject: [PATCH] adding ops

---
 lisp/emacs-lisp/comp.el | 26 +++++++++++---------------
 1 file changed, 11 insertions(+), 15 deletions(-)

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 89a35d1fe54..6bc293e5963 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -497,23 +497,19 @@ the annotation emission."
        (comp-emit-set-call `(callref Fconcat 3 ,(comp-sp))))
       (byte-concat4
        (comp-emit-set-call `(callref Fconcat 4 ,(comp-sp))))
-      (byte-sub1)
-      (byte-add1)
-      (byte-eqlsign
-       (comp-emit-set-call `(call Fstring_equal
-                                  ,(comp-slot)
-                                  ,(comp-slot-next))))
-      (byte-gtr)
-      (byte-lss)
-      (byte-leq)
-      (byte-geq)
-      (byte-diff)
-      (byte-negate)
-      (byte-plus
-       (comp-emit-set-call `(callref Fplus 2 ,(comp-sp))))
+      (byte-sub1 1+ Fadd1)
+      (byte-add1 1- Fsub1)
+      (byte-eqlsign string-equal Fstring-equal)
+      (byte-gtr > Fgtr)
+      (byte-lss < Flss)
+      (byte-leq <= Fleq)
+      (byte-geq >= Fgeq)
+      (byte-diff - Fmius)
+      (byte-negate null Fnull)
+      (byte-plus + Fplus)
       (byte-max auto)
       (byte-min auto)
-      (byte-mult)
+      (byte-mult * Ftimes)
       (byte-point auto)
       (byte-goto-char auto)
       (byte-insert auto)
-- 
2.39.5