mirror of
https://github.com/jimeh/build-emacs-for-macos.git
synced 2026-02-19 13:06:38 +00:00
63 lines
2.8 KiB
Diff
63 lines
2.8 KiB
Diff
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
|
|
index 25e2de9..bcedd31 100644
|
|
--- a/lisp/emacs-lisp/comp.el
|
|
+++ b/lisp/emacs-lisp/comp.el
|
|
@@ -2801,6 +2801,57 @@ queued with LOAD %"
|
|
(comp-run-async-workers)
|
|
(message "Compilation started."))))
|
|
|
|
+;;;###autoload
|
|
+(defun native-compile-setup-environment-variables (&rest _args)
|
|
+ "Ensure LIBRARY_PATH is set correctly when libgccjit is bundled."
|
|
+ (when (and (eq system-type 'darwin)
|
|
+ (string-match-p "\.app\/Contents\/MacOS\/?$"
|
|
+ invocation-directory))
|
|
+ (let* ((library-path-env (getenv "LIBRARY_PATH"))
|
|
+ (devtools-dir
|
|
+ "/Library/Developer/CommandLineTools/SDKs/MacOSX.sdk/usr/lib")
|
|
+ (gcc-base-dir (concat invocation-directory "lib/gcc"))
|
|
+ (gcc-version (car (seq-filter
|
|
+ (lambda (dir) (string-match-p "^[0-9]+$" dir))
|
|
+ (directory-files gcc-base-dir))))
|
|
+ (gcc-dir (concat gcc-base-dir "/" gcc-version))
|
|
+ (darwin-base-dir (car (file-expand-wildcards
|
|
+ (concat gcc-dir "/gcc/*apple-darwin*"))))
|
|
+ (darwin-version (car (seq-filter
|
|
+ (lambda (dir)
|
|
+ (string-match-p
|
|
+ "^[0-9]+\\(\.[0-9]+\\(\.[0-9]+\\)?\\)?$" dir))
|
|
+ (directory-files darwin-base-dir))))
|
|
+ (darwin-dir (concat darwin-base-dir "/" darwin-version))
|
|
+ (lib-paths (append
|
|
+ (list gcc-dir darwin-dir)
|
|
+ (if (file-directory-p devtools-dir)
|
|
+ (list devtools-dir) (list))
|
|
+ (if library-path-env (list library-path-env) (list)))))
|
|
+
|
|
+ (when (and gcc-dir darwin-dir)
|
|
+ (setenv "LIBRARY_PATH" (mapconcat 'identity lib-paths ":")))))
|
|
+
|
|
+ ;; Remove advice, as it only needs to run once.
|
|
+ (advice-remove 'native-compile
|
|
+ 'native-compile-setup-environment-variables)
|
|
+ (advice-remove 'comp--native-compile
|
|
+ 'native-compile-setup-environment-variables)
|
|
+ (advice-remove 'native-compile-async
|
|
+ 'native-compile-setup-environment-variables)
|
|
+ (advice-remove 'native--compile-async
|
|
+ 'native-compile-setup-environment-variables))
|
|
+
|
|
+;; Ensure environment setup runs before any native compilation.
|
|
+(advice-add 'native-compile :before
|
|
+ 'native-compile-setup-environment-variables)
|
|
+(advice-add 'comp--native-compile :before
|
|
+ 'native-compile-setup-environment-variables)
|
|
+(advice-add 'native-compile-async :before
|
|
+ 'native-compile-setup-environment-variables)
|
|
+(advice-add 'native--compile-async :before
|
|
+ 'native-compile-setup-environment-variables)
|
|
+
|
|
(provide 'comp)
|
|
|
|
;;; comp.el ends here
|