From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sat, 20 Jul 2019 15:22:13 +0000 (+0200)
Subject: adding ops
X-Git-Tag: emacs-28.0.90~2727^2~1337
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45a4510738a0878267fca5fdd687981c70209023;p=emacs.git

adding ops
---

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)