From bbde29c012868e130388d9975beded563643a7a7 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 15 Sep 2019 12:08:22 +0200 Subject: [PATCH] add ssa param to comp-new-frame --- lisp/emacs-lisp/comp.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 11da06cc022..51a120bb405 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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 () -- 2.39.5