1 files changed, 19 insertions(+), 12 deletions(-)

M gnu/packages/image.scm

@@ 760,19 760,26 @@ maximum quality factor.")
                 "1hjm8lwap7bjyyxsyi94fh5817xzqhk4kb5y0b7mb6675xw10prk"))))
     (build-system gnu-build-system)
     (arguments
-     (if (and (target-riscv64?)
-              (%current-target-system))
-       (list #:phases
-             #~(modify-phases %standard-phases
-                 (add-after 'unpack 'update-config-scripts
-                   (lambda* (#:key native-inputs inputs #:allow-other-keys)
-                     (for-each (lambda (file)
-                                 (install-file
+     (append
+      (list
+       #:configure-flags
+       #~(list (string-append "CFLAGS= "
+                              ;; Relax GCC 14's checks.
+                              "-Wno-error=builtin-declaration-mismatch "
+                              "-Wno-error=implicit-function-declaration")))
+      (if (and (target-riscv64?)
+               (%current-target-system))
+          (list #:phases
+                (modify-phases %standard-phases
+                  (add-after 'unpack 'update-config-scripts
+                    (lambda* (#:key native-inputs inputs #:allow-other-keys)
+                      (for-each (lambda (file)
+                                  (install-file
                                    (search-input-file
-                                     (or native-inputs inputs)
-                                     (string-append "/bin/" file)) "."))
-                               '("config.guess" "config.sub"))))) )
-       '()))
+                                    (or native-inputs inputs)
+                                    (string-append "/bin/" file)) "."))
+                                '("config.guess" "config.sub"))))))
+          '())))
     (native-inputs
      (if (and (target-riscv64?)
               (%current-target-system))