diff mbox series

[bug#56224] guix: utils: Add as-for-target.

Message ID 20220625213032.2043-1-antero@mailbox.org
State Accepted
Headers show
Series [bug#56224] guix: utils: Add as-for-target. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Antero Mejr June 25, 2022, 9:30 p.m. UTC
* guix/utils.scm (as-for-target): New function.
---
 guix/utils.scm | 7 +++++++
 1 file changed, 7 insertions(+)

Comments

Ludovic Courtès Aug. 4, 2022, 9:12 a.m. UTC | #1
Hi Antero,

Antero Mejr <antero@mailbox.org> skribis:

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

Out of curiosity, did you encounter packages needing it?  (That hasn’t
been the case so far but maybe we were just lucky.)

Thanks,
Ludo’.
Ludovic Courtès Aug. 4, 2022, 10 p.m. UTC | #2
Hi,

Antero Mejr <antero@mailbox.org> skribis:

> Yes, the hare programming language compiler package uses as-for-target. That package is a work in progress: 
> https://issues.guix.gnu.org/55606 
>   
> as-for-target is also mentioned in a comment in rasperrypi.scm, in the raspi-arm64-chainloader package. 

Alright, I see.

Applied, thanks!

Ludo’.
diff mbox series

Patch

diff --git a/guix/utils.scm b/guix/utils.scm
index 745da98a79..4cfa9d863f 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -15,6 +15,7 @@ 
 ;;; Copyright © 2018 Steve Sprang <scs@stevesprang.com>
 ;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
 ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
+;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -103,6 +104,7 @@  (define-module (guix utils)
             target-riscv64?
             target-64bit?
             ar-for-target
+            as-for-target
             cc-for-target
             cxx-for-target
             ld-for-target
@@ -742,6 +744,11 @@  (define* (ar-for-target #:optional (target (%current-target-system)))
       (string-append target "-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)))
   (if target
       (string-append target "-gcc")