From 20d42249ce8d7fad1e377621e717b238df3a4b05 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 18 Aug 2019 21:39:09 +0200 Subject: [PATCH] emit reloc index --- lisp/emacs-lisp/comp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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." -- 2.39.5