From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 18 Aug 2019 19:39:09 +0000 (+0200)
Subject: emit reloc index
X-Git-Tag: emacs-28.0.90~2727^2~1256
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20d42249ce8d7fad1e377621e717b238df3a4b05;p=emacs.git

emit reloc index
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index a453acc329c..11803a3ea5f 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -378,10 +378,10 @@ If DST-N is specified use it otherwise assume it to be the current slot."
 
 (defun comp-emit-set-const (val)
   "Set constant VAL to current slot."
-  (comp-add-const-to-relocs val)
-  (setf (comp-slot) (make-comp-mvar :slot (comp-sp)
-                                    :constant val))
-  (comp-emit (list 'setimm (comp-slot) val)))
+  (let ((rel-idx (comp-add-const-to-relocs val)))
+    (setf (comp-slot) (make-comp-mvar :slot (comp-sp)
+                                      :constant val))
+    (comp-emit `(setimm ,(comp-slot) ,rel-idx . ,val))))
 
 (defun comp-mark-block-closed ()
   "Mark current basic block as closed."