[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 28ce6f9 3/3: * Some clean-up in comp.el
From: |
Andrea Corallo |
Subject: |
feature/native-comp 28ce6f9 3/3: * Some clean-up in comp.el |
Date: |
Mon, 22 Feb 2021 14:49:50 -0500 (EST) |
branch: feature/native-comp
commit 28ce6f980ff9dc022550933f840ab5c8469cc9d1
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* 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 677e6a7..e2b1d04 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)