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

Rename this function

Browse source
This commit is contained in:
Benson Chu 2026-03-27 10:35:49 -05:00
parent b961c7e779
commit 78b2de42bf
6 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/llvm-lib/llvm-act-on-file/act-on-c-file.el
View file

@ -43,7 +43,7 @@
(defun ll/ensure-clang-binary-built (dir) (defun ll/ensure-clang-binary-built (dir)
;; TODO: assumed build-dir constant, should take as argument and prompt ;; TODO: assumed build-dir constant, should take as argument and prompt
;; further up ;; further up
(lls/ninja-build-tools dir '("clang"))) (lls/run-build-command dir '("clang")))
(defun ll/clang-output-disassemble-command (file) (defun ll/clang-output-disassemble-command (file)
(let ((compiler (lls/prompt-tool "clang$")) (let ((compiler (lls/prompt-tool "clang$"))

2
lisp/llvm-lib/llvm-act-on-file/act-on-llvm-source-file.el
View file

@ -36,7 +36,7 @@
(let ((dir (lls/get-llvm-build-dir))) (let ((dir (lls/get-llvm-build-dir)))
(--> file (--> file
(list (format "touch %s" it) (list (format "touch %s" it)
(lls/ninja-build-tools dir (list (concat it "^")) t)) (lls/run-build-command dir (list (concat it "^")) t))
(string-join it " && ") (string-join it " && ")
(compilation-start it nil (compilation-start it nil
(lambda (_) (lambda (_)

4
lisp/llvm-lib/llvm-act-on-file/act-on-test-file.el
View file

@ -72,7 +72,7 @@
;; further up ;; further up
(let ((dir (lls/get-llvm-build-dir)) (let ((dir (lls/get-llvm-build-dir))
(tools (ll/get-required-binaries-for-test file))) (tools (ll/get-required-binaries-for-test file)))
(lls/ninja-build-tools dir tools))) (lls/run-build-command dir tools)))
(defun ll/build-lit-command (file action) (defun ll/build-lit-command (file action)
(format "%s %s %s" (format "%s %s %s"
@ -164,7 +164,7 @@
(when tools (when tools
(--> (-->
;; TODO: Assuming debug folder, (lls/get-llvm-build-dir) doesn't work ;; TODO: Assuming debug folder, (lls/get-llvm-build-dir) doesn't work
(lls/ninja-build-tools "/scratch/benson/tools3/llvm_cgt/build/Debug/llvm" (seq-uniq tools)) (lls/run-build-command "/scratch/benson/tools3/llvm_cgt/build/Debug/llvm" (seq-uniq tools))
(compilation-start (compilation-start
it it
nil nil

2
lisp/llvm-lib/llvm-build-command.el
View file

@ -37,7 +37,7 @@
(compilation-start (--> (compilation-start (-->
(list (list
(format "touch %s" file) (format "touch %s" file)
(lls/ninja-build-tools (lls/run-build-command
build-dir (list (format "%s^" file)) t)) build-dir (list (format "%s^" file)) t))
(string-join it " && ")) (string-join it " && "))
nil nil

4
lisp/llvm-lib/llvm-build-tool.el
View file

@ -42,7 +42,7 @@
;; "llc"))))) ;; "llc")))))
;; (let* ((buffer-name (funcall lls/name-llvm-build-buffer directory tools))) ;; (let* ((buffer-name (funcall lls/name-llvm-build-buffer directory tools)))
;; (compilation-start ;; (compilation-start
;; (lls/ninja-build-tools (lls/un-trampify directory) tools) ;; (lls/run-build-command (lls/un-trampify directory) tools)
;; nil ;; nil
;; (lambda (_) buffer-name)))) ;; (lambda (_) buffer-name))))
@ -56,7 +56,7 @@
"llc"))))) "llc")))))
(name (funcall lls/name-llvm-build-buffer directory tools)) (name (funcall lls/name-llvm-build-buffer directory tools))
(lls/ninja-build-tools (lls/un-trampify directory) tools)) (lls/run-build-command (lls/un-trampify directory) tools))
(provide 'llvm-build-tool) (provide 'llvm-build-tool)
;;; llvm-build-tool.el ends here ;;; llvm-build-tool.el ends here

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

@ -37,7 +37,7 @@
(defvar llvm-core-count (defvar llvm-core-count
(nprocs)) (nprocs))
(defun lls/ninja-build-tools (build-dir targets &optional verbose) (defun lls/run-build-command (build-dir targets &optional verbose)
(let ((cmake-make-program (let ((cmake-make-program
(if (string= "Makefile" (car (directory-files build-dir nil "^\\(build\\.ninja$\\|Makefile\\)$"))) (if (string= "Makefile" (car (directory-files build-dir nil "^\\(build\\.ninja$\\|Makefile\\)$")))
"make" "make"