mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

* Rename comp-emit-set-const -> comp-emit-setimm

Browse Source
This commit is contained in:
Andrea Corallo 2020-02-29 14:12:21 +00:00
parent 62384df265
commit b7f3624924
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View File

@ -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))))))