03/03: gnu: fio: Disable native CPU compiler optimizations.

[guix-commits]

mbakke pushed a commit to branch master
in repository guix.

commit 290a7664b58d2a018096c6388ae3468eb4cd88ec
Author: Marius Bakke <marius@gnu.org>
AuthorDate: Sat Nov 6 00:09:30 2021 +0100

    gnu: fio: Disable native CPU compiler optimizations.
    
    * gnu/packages/benchmark.scm (fio)[arguments]: Add #:configure-flags.  
Adjust
    configure phase accordingly.
---
 gnu/packages/benchmark.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/benchmark.scm b/gnu/packages/benchmark.scm
index e355a47..9741814 100644
--- a/gnu/packages/benchmark.scm
+++ b/gnu/packages/benchmark.scm
@@ -65,15 +65,17 @@
      `(#:modules (,@%gnu-build-system-modules
                   (ice-9 textual-ports))
        #:test-target "test"
+       #:configure-flags '("--disable-native") ;don't generate code for the 
build CPU
        #:phases
        (modify-phases %standard-phases
          (replace 'configure
-           (lambda* (#:key outputs #:allow-other-keys)
+           (lambda* (#:key (configure-flags ''()) outputs #:allow-other-keys)
              ;; The configure script doesn't understand some of the
-             ;; GNU options, so we can't use #:configure-flags.
+             ;; GNU options, so we can't use the stock phase.
              (let ((out (assoc-ref outputs "out")))
-               (invoke "./configure"
-                       (string-append "--prefix=" out)))))
+               (apply invoke "./configure"
+                      (string-append "--prefix=" out)
+                      configure-flags))))
          ;; The main `fio` executable is fairly small and self contained.
          ;; Moving the auxiliary scripts to a separate output saves ~100 MiB
          ;; on the closure.