Pass name and compiler through

This commit is contained in:
Benson Chu 2024-06-06 11:26:21 -05:00
parent ad22724e42
commit 2966ad74e3
2 changed files with 7 additions and 4 deletions

View file

@ -72,7 +72,10 @@
(let ((compiler-action (aml/get-map-prop ll/c-file-action-map action :compiler-action))
(compiler (lls/prompt-tool "clang$")))
(string-join
(list (lls/get-clang-command-fun compiler file compiler-action)
(list (lls/get-clang-command-fun
:compiler compiler
:file file
:action compiler-action)
(pcase action
('debug (format "-mllvm -debug-only=%s" (ll/read-pass-name "Which pass? ")))
('before-after (let ((pass (ll/read-pass-name "Which pass? ")))

View file

@ -189,9 +189,9 @@
(cons dir
(lls/conf-get 'build-dirs))))
(defun lls/get-clang-options (&optional file compiler)
(funcall (lls/conf-get 'target-clang-opts-fun)
:compiler compiler :filename file))
(defun lls/get-clang-options (&rest args)
(apply (lls/conf-get 'target-clang-opts-fun)
args))
;; =============================== Misc ==============================