From 39dd387067797effcff547d65b6fe24daf9c0265 Mon Sep 17 00:00:00 2001
From: Zheng Junjie <873216071@qq.com>
Date: Sat, 25 Jan 2025 10:24:07 +0800
Subject: gnu: libxml2: Fix build to loongarch64.

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

Change-Id: Icd2fbfbb321842933ddb9935fd8c3121beb2ad8c
---
 gnu/packages/xml.scm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'gnu/packages/xml.scm')

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 2f69911b97..ea36774d36 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -218,6 +218,17 @@ (define-public libxml2
      (list
       #:phases
       #~(modify-phases %standard-phases
+          #$@(if (target-loongarch64?)
+                 #~((add-after 'unpack 'update-config-scripts
+                      (lambda* (#:key inputs native-inputs #:allow-other-keys)
+                        ;; Replace outdated config.guess and config.sub.
+                        (for-each (lambda (file)
+                                    (install-file
+                                     (search-input-file
+                                      (or native-inputs inputs)
+                                      (string-append "/bin/" file)) "."))
+                                  '("config.guess" "config.sub")))))
+                 #~())
           (add-after 'install 'use-other-outputs
             (lambda _
               (let ((doc (string-append #$output:doc "/share/"))
@@ -242,7 +253,10 @@ (define-public libxml2
     (synopsis "C parser for XML")
     (inputs (list xz))
     (propagated-inputs (list zlib)) ; libxml2.la says '-lz'.
-    (native-inputs (list perl))
+    (native-inputs (append (if (target-loongarch64?)
+                               (list config)
+                               '())
+                           (list perl)))
     (native-search-paths
      (list $SGML_CATALOG_FILES $XML_CATALOG_FILES))
     (search-paths native-search-paths)
-- 
cgit v1.2.3