mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

add ssa param to comp-new-frame

Browse source
This commit is contained in:
Andrea Corallo 2019-09-15 12:08:22 +02:00
parent 33ce5fe9da
commit bbde29c012
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp.el
View file

@ -415,11 +415,13 @@ If INPUT is a string this is the file path to be compiled."
(make--comp-mvar :slot slot :const-vld const-vld :constant constant
:type type))
(defun comp-new-frame (size)
(defun comp-new-frame (size &optional ssa)
"Return a clean frame of meta variables of size SIZE."
(cl-loop with v = (make-vector size nil)
for i below size
do (aset v i (make-comp-mvar :slot i))
for mvar = (if ssa (make-comp-ssa-mvar :slot i)
(make-comp-mvar :slot i))
do (aset v i mvar)
finally (return v)))
(defmacro comp-sp ()