From b7f36249246a8f80924806593afcf55ab3baca2a Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sat, 29 Feb 2020 14:12:21 +0000 Subject: [PATCH] * Rename comp-emit-set-const -> comp-emit-setimm --- 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 3c993c5c935..6ad97062b42 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -679,7 +679,7 @@ If DST-N is specified use it otherwise assume it to be the current slot." "Emit annotation STR." (comp-emit `(comment ,str))) -(defun comp-emit-set-const (val) +(defun comp-emit-setimm (val) "Set constant VAL to current slot." (let ((rel-idx (comp-add-const-to-relocs val))) (cl-assert (numberp rel-idx)) @@ -1086,7 +1086,7 @@ the annotation emission." (cl-second (comp-block-insns (comp-limplify-curr-block comp-pass))))) (byte-constant - (comp-emit-set-const arg)) + (comp-emit-setimm arg)) (byte-discardN-preserve-tos (cl-incf (comp-sp) (- arg)) (comp-copy-slot (+ arg (comp-sp))))))) @@ -1112,7 +1112,7 @@ the annotation emission." (intern (format "entry_fallback_%s" (1+ i)))) do (comp-with-sp i (comp-make-curr-block bb (comp-sp)) - (comp-emit-set-const nil) + (comp-emit-setimm nil) (comp-emit `(jump ,next-bb))))) (comp-make-curr-block 'entry_rest_args (comp-sp)) (comp-emit `(set-rest-args-to-local ,(comp-slot-n nonrest))) @@ -1675,7 +1675,7 @@ Here goes everything that can be done not iteratively (read once). ;; is now left to gcc, to be implemented only if we want a ;; reliable diagnostic here. (let ((values (apply f (mapcar #'comp-mvar-constant args)))) - ;; See `comp-emit-set-const'. + ;; See `comp-emit-setimm'. (setf (car insn) 'setimm (cddr insn) (list (comp-add-const-to-relocs values) values))))))