pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

New architectures

Browse source
This commit is contained in:
Benson Chu 2024-10-25 13:41:25 -07:00
parent af7edf8a3e
commit 7ada472db2
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/llvm-lib/llvm-shared.el
View file

@ -302,7 +302,7 @@
:tramp tramp-conn
:root-dir root-dir
:build-dirs-fun (lls/guess-build-dirs-fun root-dir)
:target (completing-read "Which target? " '("X86" "ARM"))
:target (completing-read "Which target? " '("X86" "ARM" "Hexagon" "AIE"))
:bin-dirs-fun (lambda ()
(list
(--> "/usr/bin/"
@ -324,14 +324,14 @@
(string-trim it)
(member it
'("https://github.com/llvm/llvm-project.git"
"git@github.com:llvm/llvm-project")))
"git@github.com:llvm/llvm-project"
"https://github.com/Xilinx/llvm-aie")))
(vc-root-dir)
;; TODO: constant
"~/workspace/llvm-project.git/machine-outliner"))
(defun lls/guess-build-dirs-fun (root-dir)
(lambda ()
(and (string-match-p "llvm-project" root-dir)
(let ((build-dir (expand-file-name "build" root-dir)))
(when (file-exists-p build-dir)
(--> build-dir
@ -343,7 +343,7 @@
(sort it #'(lambda (x y)
(cond ((string-match-p "^Release$" (file-name-nondirectory y)) nil)
((string-match-p "^Release$" (file-name-nondirectory x)) t)
(t (string< x y)))))))))))
(t (string< x y))))))))))
(provide 'llvm-shared)
;;; llvm-shared.el ends here