(address . guix-patches@gnu.org)(name . Efraim Flashner)(address . efraim@flashner.co.il)
77ec80a001bb04229289f1e3efff7633c94c71dc.1626343320.git.efraim@flashner.co.il
* gnu/packages/llvm.scm (make-single-arch-llvm): New procedure.
(llvm-native-12, llvm-native): New variables.
---
Using this copy of llvm for packages like mesa will reduce the closure
of those packages. I don't suppose it would work as well for compilers
like rust which use LLVM for compiling and targeting different
architectures.
This drops the size of llvm-12 from 167M to 111M.
gnu/packages/llvm.scm | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
Toggle diff (36 lines)
diff --git a/gnu/packages/llvm.scm b/gnu/packages/llvm.scm
index 575c63c713..35cecdfd84 100644
--- a/gnu/packages/llvm.scm
+++ b/gnu/packages/llvm.scm
@@ -1347,3 +1347,27 @@ LLVM."))))
(define-public ocaml-llvm-9 (make-ocaml-llvm llvm-9))
(define-public ocaml-llvm-10 (make-ocaml-llvm llvm-10))
(define-public ocaml-llvm-11 (make-ocaml-llvm llvm-11))
+
+(define* (make-single-arch-llvm llvm #:optional (system (or (%current-target-system)
+ (%current-system))))
+ (package
+ (inherit llvm)
+ (name (string-append "llvm-for-" (string-downcase
+ (system->llvm-target system))))
+ (arguments
+ (substitute-keyword-arguments (package-arguments llvm)
+ ((#:configure-flags cf)
+ `(cons* ,(string-append "-DLLVM_TARGETS_TO_BUILD="
+ (system->llvm-target system))
+ ,cf))))
+ (synopsis "Compiler with support for a single architecture")))
+
+(define-public llvm-native-12
+ (package
+ (inherit (make-single-arch-llvm llvm-12))
+ (name "llvm-native")))
+
+(define-public llvm-native
+ (package
+ (inherit (make-single-arch-llvm llvm))
+ (name "llvm-native")))
base-commit: 17c8fedc256406047c7a1e8317bc52641c621286
--
2.32.0