[bug#63751] [PATCH 1/3] gnu: zita-alsa-pcmi: Do not build with "-march=native".

[bug#63751] [PATCH 1/3] gnu: zita-alsa-pcmi: Do not build with "-march=native".

[Z572 via Guix-patches via]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=y, Size: 1434 bytes --]

* gnu/packages/audio.scm (zita-alsa-pcmi): Do not build with "-march=native".
[arguments]<#:phases>: remove '-march=native' form source/Makefile.
[properties]: New field.
---
 gnu/packages/audio.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 58a981b2fe..6a24c5b9c6 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -44,6 +44,7 @@
 ;;; Copyright © 2023 David Thompson <dthompson2@worcester.edu>
 ;;; Copyright © 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;; Copyright © 2023 Gabriel Wicki <gabriel@erlikon.ch>
+;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -4466,7 +4467,8 @@ (define-public zita-alsa-pcmi
            (lambda _
              (substitute* "source/Makefile"
                (("ldconfig") "true")
-               (("^LIBDIR =.*") "LIBDIR = lib\n"))
+               (("^LIBDIR =.*") "LIBDIR = lib\n")
+               (("CXXFLAGS \\+= -march=native") ""))
              (chdir "source")
              #t))
          (add-after 'install 'install-symlink
@@ -4479,6 +4481,7 @@ (define-public zita-alsa-pcmi
           (delete 'configure))))
     (inputs
      (list alsa-lib fftw))
+    (properties `((tunable? . #t)))
     (home-page "https://kokkinizita.linuxaudio.org")
     (synopsis "C++ wrapper around the ALSA API")
     (description
-- 
2.40.1

[bug#63751] [PATCH 2/3] gnu: zita-alsa-pcmi: fix cross-build.

[Z572 via Guix-patches via]

* gnu/packages/audio.scm (zita-alsa-pcmi): fix cross-build.
[arguments]: use CXX-FOR-TARGET.
---
 gnu/packages/audio.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 6a24c5b9c6..a3873e7631 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -4460,7 +4460,8 @@ (define-public zita-alsa-pcmi
      `(#:tests? #f ; no "check" target
        #:make-flags
        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
-             (string-append "SUFFIX="))
+             (string-append "SUFFIX=")
+             (string-append "CXX=" ,(cxx-for-target)))
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'patch-makefile-and-enter-directory
-- 
2.40.1

[bug#63751] [PATCH 3/3] gnu: zita-alsa-pcmi: Use new style for arguments.

[Z572 via Guix-patches via]

* gnu/packages/audio.scm(zita-alsa-pcmi)[arguments]: Use
G-Expressions.  Delete trailing #ts.
---
 gnu/packages/audio.scm | 57 +++++++++++++++++++++---------------------
 1 file changed, 28 insertions(+), 29 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index a3873e7631..97a4061324 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -4448,40 +4448,39 @@ (define-public zita-alsa-pcmi
     (version "0.3.2")
     (source (origin
               (method url-fetch)
-              (uri (string-append
-                    "http://kokkinizita.linuxaudio.org"
-                    "/linuxaudio/downloads/zita-alsa-pcmi-"
-                    version ".tar.bz2"))
+              (uri (string-append "http://kokkinizita.linuxaudio.org"
+                                  "/linuxaudio/downloads/zita-alsa-pcmi-"
+                                  version ".tar.bz2"))
               (sha256
                (base32
                 "12d7vdg74yh21w69qi0wg57iz4876j94qbiq09bvscih6xz9y78s"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f ; no "check" target
-       #:make-flags
-       (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
-             (string-append "SUFFIX=")
-             (string-append "CXX=" ,(cxx-for-target)))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-makefile-and-enter-directory
-           (lambda _
-             (substitute* "source/Makefile"
-               (("ldconfig") "true")
-               (("^LIBDIR =.*") "LIBDIR = lib\n")
-               (("CXXFLAGS \\+= -march=native") ""))
-             (chdir "source")
-             #t))
-         (add-after 'install 'install-symlink
-           (lambda _
-             (symlink "libzita-alsa-pcmi.so"
-                      (string-append (assoc-ref %outputs "out")
-                                     "/lib/libzita-alsa-pcmi.so.0"))
-             #t))
-          ;; no configure script
-          (delete 'configure))))
-    (inputs
-     (list alsa-lib fftw))
+     (list #:tests? #f ;no "check" target
+           #:make-flags #~(list (string-append "PREFIX="
+                                               (assoc-ref %outputs "out"))
+                                (string-append "SUFFIX=")
+                                (string-append "CXX="
+                                               #$(cxx-for-target)))
+           #:phases #~(modify-phases %standard-phases
+                        (add-after 'unpack 'patch-makefile-and-enter-directory
+                          (lambda _
+                            (substitute* "source/Makefile"
+                              (("ldconfig")
+                               "true")
+                              (("^LIBDIR =.*")
+                               "LIBDIR = lib\n")
+                              (("CXXFLAGS \\+= -march=native")
+                               ""))
+                            (chdir "source")))
+                        (add-after 'install 'install-symlink
+                          (lambda _
+                            (symlink "libzita-alsa-pcmi.so"
+                                     (string-append (assoc-ref %outputs "out")
+                                      "/lib/libzita-alsa-pcmi.so.0"))))
+                        ;; no configure script
+                        (delete 'configure))))
+    (inputs (list alsa-lib fftw))
     (properties `((tunable? . #t)))
     (home-page "https://kokkinizita.linuxaudio.org")
     (synopsis "C++ wrapper around the ALSA API")
-- 
2.40.1