08/09: gnu: sdcc: Embed absolute reference to μCsim.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit a97d032c7bceac4422a10c7788745fcd34ed8d65
Author: Simon South <simon@simonsouth.net>
AuthorDate: Thu Sep 28 16:14:47 2023 -0400

    gnu: sdcc: Embed absolute reference to μCsim.
    
    * gnu/packages/embedded.scm (sdcc)[arguments]<#:phases>: Add
    "embed-absolute-ucsim-reference" phase.
    [inputs]: Add ucsim.
    
    Signed-off-by: Christopher Baines <mail@cbaines.net>
---
 gnu/packages/embedded.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index 630f2b37e0..9202aaf5b6 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -1680,9 +1680,18 @@ PicoBlaze; and Zilog Z80 families, plus many of their 
variants.")
                 (("debugger/mcs51" line)
                  (string-append line  "\n"
                                 "TARGETS += sdcc-misc\n"
-                                "PKGS += $(SDCC_MISC)"))))))))
+                                "PKGS += $(SDCC_MISC)")))))
+          (add-after 'patch-makefiles 'embed-absolute-ucsim-reference
+            (lambda _
+              ;; Embed in the debugger an absolute reference to the MCS-51
+              ;; simulator from Guix's μCsim package to ensure it is always
+              ;; available.
+              (substitute* "debugger/mcs51/sdcdb.c"
+                (("s51")
+                 (string-append #$(this-package-input "ucsim")
+                                "/bin/s51"))))))))
     (inputs
-     (list readline))
+     (list readline ucsim))
     (native-inputs
      (list bison boost flex python-2 texinfo zlib))
     (home-page "https://sdcc.sourceforge.net/";)