From 3228924c7bdebbaf6eed176d29c4b96a26dad2ef Mon Sep 17 00:00:00 2001
From: Zheng Junjie <873216071@qq.com>
Date: Tue, 24 Dec 2024 01:13:01 +0800
Subject: gnu: gdbm: Fix build to loongarch64.

* gnu/packages/dbm.scm (gdbm)[arguments]: When target is loongarch64, Add
update-config phase.
[native-inputs]: When target is loongarch64, Add config.

Change-Id: I1fd1b0b4171ae3cddbcc1683f8cb12ed85fa5da8
---
 gnu/packages/dbm.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/dbm.scm b/gnu/packages/dbm.scm
index 7c36d30a34..433d469ae8 100644
--- a/gnu/packages/dbm.scm
+++ b/gnu/packages/dbm.scm
@@ -189,7 +189,22 @@ (define-public gdbm
                (base32
                 "1kfapds42j1sjq6wl7fygipw5904wpbfa5kwppj3mwgz44fhicbl"))))
     (arguments `(#:configure-flags '("--enable-libgdbm-compat"
-                                     "--disable-static")))
+                                     "--disable-static")
+                 ,@(if (target-loongarch64?)
+                       `(#:phases
+                         (modify-phases %standard-phases
+                           (add-after 'unpack 'update-config
+                             (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)) "build-aux"))
+                                         '("config.guess" "config.sub"))))))
+                       '())))
+    (native-inputs (if (target-loongarch64?)
+                       (list config)
+                       '()))
     (build-system gnu-build-system)
     (home-page "https://www.gnu.org.ua/software/gdbm")
     (synopsis
-- 
cgit v1.2.3