[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/better-cu-fixup c46ca56de3 3/3: * lisp/loadup.el: Always fix-up
From: |
Andrea Corallo |
Subject: |
scratch/better-cu-fixup c46ca56de3 3/3: * lisp/loadup.el: Always fix-up all loaded compilation units |
Date: |
Wed, 17 Aug 2022 16:54:30 -0400 (EDT) |
branch: scratch/better-cu-fixup
commit c46ca56de3c6e34268f491a33b6d12bc7c606ea4
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/loadup.el: Always fix-up all loaded compilation units
---
lisp/loadup.el | 11 +++--------
1 file changed, 3 insertions(+), 8 deletions(-)
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 17e82cc0c4..634a331436 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -478,17 +478,12 @@ lost after dumping")))
;; installed or if the source directory got moved. This is set to be
;; a pair in the form of:
;; (rel-filename-from-install-bin . rel-filename-from-local-bin).
- (let ((h (make-hash-table :test #'eq))
- (bin-dest-dir (cadr (member "--bin-dest" command-line-args)))
+ (let ((bin-dest-dir (cadr (member "--bin-dest" command-line-args)))
(eln-dest-dir (cadr (member "--eln-dest" command-line-args))))
(when (and bin-dest-dir eln-dest-dir)
(setq eln-dest-dir
(concat eln-dest-dir "native-lisp/" comp-native-version-dir "/"))
- (mapatoms (lambda (s)
- (let ((f (symbol-function s)))
- (when (subr-native-elisp-p f)
- (puthash (subr-native-comp-unit f) nil h)))))
- (maphash (lambda (cu _)
+ (maphash (lambda (_ cu)
(let* ((file (native-comp-unit-file cu))
(preloaded (equal (substring (file-name-directory file)
-10 -1)
@@ -508,7 +503,7 @@ lost after dumping")))
bin-dest-dir)
;; Relative filename from the built uninstalled binary.
(file-relative-name file invocation-directory)))))
- h))))
+ comp-loaded-comp-units-h))))
(when (hash-table-p purify-flag)
(let ((strings 0)