summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorAndreaCorallo <akrl@sdf.org>2020-03-09 17:35:07 +0000
committerAndrea Corallo <akrl@sdf.org>2020-03-10 10:42:56 +0000
commitf21e1dfc9f9addf66e6913cd30fbd7f922510ede (patch)
tree87b3106d48c48aa051a6fcb1ccc92f40c2e5e449 /lisp/emacs-lisp
parent87ee6ff4eb6df369965f37fba073e3ef1bb5d0bd (diff)
downloademacs-f21e1dfc9f9addf66e6913cd30fbd7f922510ede.tar.gz
emacs-f21e1dfc9f9addf66e6913cd30fbd7f922510ede.tar.bz2
emacs-f21e1dfc9f9addf66e6913cd30fbd7f922510ede.zip
* Set relocation class as ephemeral in `comp-limplify-top-level'
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/comp.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f16aa59dc5e..808a705a5cb 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1154,8 +1154,8 @@ functions 'top_level_run' will call back `comp--register-subr'
into the C code forwarding the compilation unit."
;; Once an .eln is loaded and Emacs is dumped 'top_level_run' has no
;; reasons to be execute ever again. Therefore all objects can be
- ;; just impure.
- (let* ((comp-curr-allocation-class 'd-impure)
+ ;; just ephemeral.
+ (let* ((comp-curr-allocation-class 'd-ephemeral)
(func (make-comp-func :name 'top-level-run
:c-name "top_level_run"
:args (make-comp-args :min 1 :max 1)