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

guix_mirror_bot pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new ffa2d91cad gnu: gtksourceview-2: Fix build with GCC 14.
ffa2d91cad is described below

commit ffa2d91cadaba68f7a5baa2108437547f8db49cd
Author: Maxim Cournoyer <ma...@guixotic.coop>
AuthorDate: Tue Jul 22 09:10:21 2025 +0900

    gnu: gtksourceview-2: Fix build with GCC 14.
    
    * gnu/packages/gtk.scm (gtksourceview-2) [#:configure-flags]: Add
    -Wno-error=incompatible-pointer-types to CFLAGS.
    [#:phases]: Delete trailing #t. Use gexps and modernize.
    
    Fixes: #1396
    Change-Id: I2a5284e309bec4058683b84f3f9bc9936f44f961
---
 gnu/packages/gtk.scm | 53 ++++++++++++++++++++++++++++------------------------
 1 file changed, 29 insertions(+), 24 deletions(-)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index a6b1a8af0a..6cfeb66f57 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -24,7 +24,7 @@
 ;;; Copyright © 2019 Giacomo Leidi <goodoldp...@autistici.org>
 ;;; Copyright © 2020 Brendan Tildesley <m...@brendan.scot>
 ;;; Copyright © 2020 Guillaume Le Vaillant <g...@posteo.net>
-;;; Copyright © 2020, 2021, 2022, 2023, 2024, 2025 Maxim Cournoyer 
<maxim.courno...@gmail.com>
+;;; Copyright © 2020-2025 Maxim Cournoyer <ma...@guixotic.coop>
 ;;; Copyright © 2021 Leo Famulari <l...@famulari.name>
 ;;; Copyright © 2021 Simon Streit <si...@netpanic.org>
 ;;; Copyright © 2021 Maxime Devos <maximede...@telenet.be>
@@ -564,7 +564,7 @@ diagrams.")
 (define-public gtksourceview-2
   (package
     (name "gtksourceview")
-    (version "2.10.5") ; This is the last version which builds against gtk+2
+    (version "2.10.5")   ;this is the last version which builds against gtk+2
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnome/sources/" name "/"
@@ -574,12 +574,12 @@ diagrams.")
                (base32
                 "07hrabhpl6n8ajz10s0d960jdwndxs87szxyn428mpxi8cvpg1f5"))
               (patches
-                (search-patches
-                  "gtksourceview-2-add-default-directory.patch"))))
+               (search-patches
+                "gtksourceview-2-add-default-directory.patch"))))
     (build-system gnu-build-system)
     (native-inputs
      (list intltool
-           `(,glib "bin") ; for glib-genmarshal, etc.
+           `(,glib "bin")               ; for glib-genmarshal, etc.
            pkg-config
            ;; For testing.
            xorg-server-for-tests
@@ -589,27 +589,32 @@ diagrams.")
      `(("gtk" ,gtk+-2)
        ("libxml2" ,libxml2)))
     (arguments
-     `(#:phases
-       ;; Unfortunately, some of the tests in "make check" are highly dependent
-       ;; on the environment therefore, some black magic is required.
-       (modify-phases %standard-phases
-         (add-before 'check 'start-xserver
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let ((xorg-server (assoc-ref inputs "xorg-server"))
-                   (mime (assoc-ref inputs "shared-mime-info")))
-
-               ;; There must be a running X server and make check doesn't 
start one.
-               ;; Therefore we must do it.
-               (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
-               (setenv "DISPLAY" ":1")
+     (list
+      ;; Fix build with GCC 14.
+      #:configure-flags #~(list "CFLAGS=-Wno-error=incompatible-pointer-types")
+      #:phases
+      ;; Unfortunately, some of the tests in "make check" are highly dependent
+      ;; on the environment therefore, some black magic is required.
+      #~(modify-phases %standard-phases
+          (add-before 'check 'start-xserver
+            (lambda* (#:key native-inputs inputs #:allow-other-keys)
+              ;; There must be a running X server and make check doesn't
+              ;; start one.  Therefore we must do it.
+              (system (format #f "~a :1 &"
+                              (search-input-file (or native-inputs inputs)
+                                                 "bin/Xvfb")))
+              (setenv "DISPLAY" ":1")
 
-               ;; The .lang files must be found in 
$XDG_DATA_HOME/gtksourceview-2.0
-               (system "ln -s gtksourceview gtksourceview-2.0")
-               (setenv "XDG_DATA_HOME" (getcwd))
+              ;; The .lang files must be found in
+              ;; $XDG_DATA_HOME/gtksourceview-2.0
+              (system "ln -s gtksourceview gtksourceview-2.0")
+              (setenv "XDG_DATA_HOME" (getcwd))
 
-               ;; Finally, the mimetypes must be available.
-               (setenv "XDG_DATA_DIRS" (string-append mime "/share/")))
-             #t)))))
+              ;; Finally, the mimetypes must be available.
+              (setenv "XDG_DATA_DIRS"
+                      (string-append
+                       #$(this-package-native-input "shared-mime-info")
+                       "/share")))))))
     (synopsis "Widget that extends the standard GTK+ 2.x 'GtkTextView' widget")
     (description
      "GtkSourceView is a portable C library that extends the standard GTK+

Reply via email to