branch core-updates updated: gnu: autogen: Fix build on i686.

[guix-commits]

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

andreas pushed a commit to branch core-updates
in repository guix.

The following commit(s) were added to refs/heads/core-updates by this push:
     new f814fa878c gnu: autogen: Fix build on i686.
f814fa878c is described below

commit f814fa878ce7cbace3e78b8b1b8e3503cc4977a8
Author: Kaelyn <kaelyn.alexi@protonmail.com>
AuthorDate: Mon Apr 10 18:33:47 2023 +0000

    gnu: autogen: Fix build on i686.
    
    * gnu/packages/autogen.scm (autogen): Add a snippet.
    
    Signed-off-by: Andreas Enge <andreas@enge.fr>
---
 gnu/packages/autogen.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/autogen.scm b/gnu/packages/autogen.scm
index 9751e11a64..f9575b0dc9 100644
--- a/gnu/packages/autogen.scm
+++ b/gnu/packages/autogen.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
+;;; Copyright © 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -43,10 +44,15 @@
         (base32 "16mlbdys8q4ckxlvxyhwkdnh1ay9f6g0cyp1kylkpalgnik398gq"))
        (modules '((guix build utils)))
        (snippet
-        ;; Address '-Werror=format-overflow' error.
-        '(substitute* "getdefs/getdefs.c"
-           (("def_bf\\[[[:space:]]*MAXNAMELEN[[:space:]]*\\]")
-            "def_bf[MAXNAMELEN + 10]")))))
+        '(begin
+           ;; Address '-Werror=format-overflow' error.
+           (substitute* "getdefs/getdefs.c"
+             (("def_bf\\[[[:space:]]*MAXNAMELEN[[:space:]]*\\]")
+              "def_bf[MAXNAMELEN + 10]"))
+           ;; Address '-Werror=format-truncation' error on i686.
+           (substitute* "autoopts/usage.c"
+             (("vfmt\\[sizeof\\(vfmtfmt\\)\\]")
+              "vfmt[sizeof(vfmtfmt) + 6]"))))))
     (build-system gnu-build-system)
     (native-inputs (list pkg-config which))
     (inputs (list guile-3.0 perl))          ; for doc generator mdoc