From 28ce6f980ff9dc022550933f840ab5c8469cc9d1 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 22 Feb 2021 15:17:07 +0100 Subject: [PATCH] * Some clean-up in comp.el * lisp/emacs-lisp/comp.el (comp-func): Remove 'array-h'. (comp-spill-lap-function, comp-intern-func-in-ctxt) (comp-spill-lap-function, comp-addr-to-bb-name): Update accordingly. --- lisp/emacs-lisp/comp.el | 9 --------- 1 file changed, 9 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 677e6a7b8d3..e2b1d04bc2b 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -774,8 +774,6 @@ CFG is mutated by a pass.") :documentation "Generates edges numbers.") (has-non-local nil :type boolean :documentation "t if non local jumps are present.") - (array-h (make-hash-table) :type hash-table - :documentation "array idx -> array length.") (speed nil :type number :documentation "Optimization level (see `comp-speed').") (pure nil :type boolean @@ -1188,8 +1186,6 @@ clashes." (setf (comp-ctxt-top-level-forms comp-ctxt) (list (make-byte-to-native-func-def :name function-name :c-name c-name))) - ;; Create the default array. - (puthash 0 (comp-func-frame-size func) (comp-func-array-h func)) (comp-add-func-to-ctxt func)))) (cl-defmethod comp-spill-lap-function ((form list)) @@ -1227,8 +1223,6 @@ clashes." (comp-ctxt-top-level-forms comp-ctxt) (list (make-byte-to-native-func-def :name '--anonymous-lambda :c-name c-name))) - ;; Create the default array. - (puthash 0 (comp-func-frame-size func) (comp-func-array-h func)) (comp-add-func-to-ctxt func)))) (defun comp-intern-func-in-ctxt (_ obj) @@ -1265,8 +1259,6 @@ clashes." (setf (byte-to-native-func-def-c-name top-l-form) c-name)) (unless name (puthash byte-func func (comp-ctxt-byte-func-to-func-h comp-ctxt))) - ;; Create the default array. - (puthash 0 (comp-func-frame-size func) (comp-func-array-h func)) (comp-add-func-to-ctxt func) (comp-log (format "Function %s:\n" name) 1) (comp-log lap 1 t)))) @@ -2090,7 +2082,6 @@ into the C code forwarding the compilation unit." (mapc (lambda (x) (comp-emit-for-top-level x for-late-load)) (comp-ctxt-top-level-forms comp-ctxt)) (comp-emit `(return ,(make-comp-mvar :slot 1))) - (puthash 0 (comp-func-frame-size func) (comp-func-array-h func)) (comp-limplify-finalize-function func))) (defun comp-addr-to-bb-name (addr) -- 2.39.5