me/guix
Archived
1
0
Fork 0
Code Activity

utils: Add as-for-target.

Browse source 
* guix/utils.scm (as-for-target): New function.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Antero Mejr 2022-06-25 21:30:32 +00:00 • committed by Ludovic Courtès
parent f9a267c6d2
commit 68edaf467f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/utils.scm
View file

@ -15,6 +15,7 @@
;;; Copyright © 2018 Steve Sprang <scs@stevesprang.com> ;;; Copyright © 2018 Steve Sprang <scs@stevesprang.com>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info> ;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -103,6 +104,7 @@
target-riscv64? target-riscv64?
target-64bit? target-64bit?
ar-for-target ar-for-target
as-for-target
cc-for-target cc-for-target
cxx-for-target cxx-for-target
ld-for-target ld-for-target
@ -742,6 +744,11 @@ architecture (x86_64)?"
(string-append target "-ar") (string-append target "-ar")
"ar")) "ar"))
(define* (as-for-target #:optional (target (%current-target-system)))
(if target
(string-append target "-as")
"as"))
(define* (cc-for-target #:optional (target (%current-target-system))) (define* (cc-for-target #:optional (target (%current-target-system)))
(if target (if target
(string-append target "-gcc") (string-append target "-gcc")