From 1a4823ef2a3a9ca179b49fdaf23319646966c8b0 Mon Sep 17 00:00:00 2001
From: Janneke Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 5 Jan 2025 16:39:22 +0100
Subject: [PATCH] gnu: freerdp: Fix build with gcc-14.

* gnu/packages/rdesktop.scm (freerdp)[arguments]: Add -DCMAKE_C_FLAGS to
relax gcc-14's strictness.

Change-Id: I7a655245820ab97aeafa21c6a8591b9a5a05fabc
Modified-by: Zheng Junjie <z572@z572.online>
---
 gnu/packages/rdesktop.scm | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/rdesktop.scm b/gnu/packages/rdesktop.scm
index 7eabfcbb0a6..4e11229c985 100644
--- a/gnu/packages/rdesktop.scm
+++ b/gnu/packages/rdesktop.scm
@@ -6,6 +6,7 @@
 ;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -147,16 +148,21 @@ to remotely control a user's Windows desktop.")
     (arguments
      (list #:build-type "RELEASE"
            #:configure-flags
-           #~(list "-DWITH_JPEG=ON"
-                   #$@(if (target-x86-64?)
-                          #~("-DWITH_SSE2=ON")
-                          #~())
-                   "-DWITH_PULSE=ON"
-                   "-DWITH_CUPS=ON"
-                   "-DBUILD_TESTING=ON"
-                   "-DWITH_SERVER=ON" ;build servers
-                   "-DWITH_SHADOW=ON" ;build shadow server
-                   "-DWITH_PROXY=ON")))
+           #~(list
+              ;; Relax gcc-14's strictness.
+              (string-append "-DCMAKE_C_FLAGS="
+                             " -Wno-error=incompatible-pointer-types"
+                             " -Wno-error=int-conversion")
+              "-DWITH_JPEG=ON"
+              #$@(if (target-x86-64?)
+                     #~("-DWITH_SSE2=ON")
+                     #~())
+              "-DWITH_PULSE=ON"
+              "-DWITH_CUPS=ON"
+              "-DBUILD_TESTING=ON"
+              "-DWITH_SERVER=ON" ;build servers
+              "-DWITH_SHADOW=ON" ;build shadow server
+              "-DWITH_PROXY=ON")))
     (home-page "https://www.freerdp.com")
     (synopsis "Remote Desktop Protocol implementation")
     (description "FreeRDP implements Microsoft's Remote Desktop Protocol.