branch wip-r updated: gnu: r-rbowtie: Fix build on architectures other than x86_64.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

rekado pushed a commit to branch wip-r
in repository guix.

The following commit(s) were added to refs/heads/wip-r by this push:
     new 2e433bf6ab gnu: r-rbowtie: Fix build on architectures other than 
x86_64.
2e433bf6ab is described below

commit 2e433bf6abc07270d7fb41acdc2f6ed0be5b80a9
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Apr 12 11:37:57 2022 +0200

    gnu: r-rbowtie: Fix build on architectures other than x86_64.
    
    * gnu/packages/bioconductor.scm (r-rbowtie)[arguments]: Disable use of 
popcnt
    on systems other than x86_64.
---
 gnu/packages/bioconductor.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index 04328c6876..803437a033 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -9677,6 +9677,18 @@ Gaussian distributions.")
          "0ardmryx6ac7v6n900a1klrrldvbmh7bxvy8ldz8rwid19h29ikr"))))
     (properties `((upstream-name . "Rbowtie")))
     (build-system r-build-system)
+    (arguments
+     `(#:phases
+       ;; Disable unsupported `popcnt' instructions on
+       ;; architectures other than x86_64
+       ,(if (string-prefix? "x86_64"
+                            (or (%current-target-system)
+                                (%current-system)))
+            '%standard-phases
+            '(modify-phases %standard-phases
+               (add-after 'unpack 'patch-sources
+                 (lambda _
+                   (setenv "POPCNT_CAPABILITY" "0")))))))
     (inputs (list zlib))
     (native-inputs
      (list r-knitr))