diff options
author | AndreaCorallo <akrl@sdf.org> | 2020-03-09 17:35:07 +0000 |
---|---|---|
committer | Andrea Corallo <akrl@sdf.org> | 2020-03-10 10:42:56 +0000 |
commit | f21e1dfc9f9addf66e6913cd30fbd7f922510ede (patch) | |
tree | 87b3106d48c48aa051a6fcb1ccc92f40c2e5e449 /lisp/emacs-lisp | |
parent | 87ee6ff4eb6df369965f37fba073e3ef1bb5d0bd (diff) | |
download | emacs-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.el | 4 |
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) |