From cb47639a8081e8e2d651ad1612bbd1e482766469 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Thu, 14 Aug 2025 06:59:09 +0300
Subject: [PATCH] gnu: simavr: Fix build

* gnu/packages/avr-xyz.scm (simavr): Fix build: disable the shared library as
it fails to build due to a linker error.
[arguments]<#:phases>: Add "disable-shared-library" phase.

Change-Id: I196161c6021c5b57d07bc75f242c041f6d352b18
---
 gnu/packages/avr-xyz.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/avr-xyz.scm b/gnu/packages/avr-xyz.scm
index c684b6183ba..4a3571175e4 100644
--- a/gnu/packages/avr-xyz.scm
+++ b/gnu/packages/avr-xyz.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
+;;; Copyright © 2022, 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -34,6 +34,7 @@
   #:use-module (gnu packages bash)
   #:use-module (gnu packages check)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages gcc)
   #:use-module (gnu packages avr)
   #:use-module (gnu packages documentation)
   #:use-module (gnu packages elf)
@@ -64,6 +65,13 @@
       #:tests? #f
       #:phases #~(modify-phases %standard-phases
                    (delete 'configure)
+                   (add-after 'unpack 'disable-shared-library
+                     (lambda _
+                       ;; XXX: "libsimavr.so"" fails to build due to a linker
+                       ;; error.  Disable the shared library for now.
+                       (substitute* "simavr/Makefile"
+                         (("ifeq \\(\\$\\{shell uname\\}, Linux\\)")
+                          "ifeq (1, 0)"))))
                    (replace 'check
                      (lambda* (#:key tests? outputs #:allow-other-keys)
                        (when tests?