[bug#61600] Subject: [PATCH 2/2] gnu: add mips and riscv cross toolchain

[路辉 <luhux76@gmail.com>]

From 841c23f6919a16890cb2ec595019a12b656c4c68 Mon Sep 17 00:00:00 2001
From: LuHui <luhux76@gmail.com>
Date: Sat, 18 Feb 2023 16:20:20 +0800
Subject: [PATCH 2/2] gnu: add mips and riscv cross toolchain

* gnu/packages/embedded.scm: add mips and riscv cross toolchain
---
 gnu/packages/embedded.scm | 78 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)

diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm
index 87c572ba0f..d6e0a17fae 100644
--- a/gnu/packages/embedded.scm
+++ b/gnu/packages/embedded.scm
@@ -12,6 +12,7 @@
 ;;; Copyright © 2021 Morgan Smith <Morgan.J.Smith@outlook.com>
 ;;; Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
 ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2023 Lu Hui <luhux76@gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -48,6 +49,7 @@ (define-module (gnu packages embedded)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
+  #:use-module (gnu packages commencement)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages cross-base)
   #:use-module (gnu packages dejagnu)
@@ -1747,3 +1749,79 @@ (define-public ts4900-utils
 @item tssilomon
 @end itemize")
       (license license:bsd-2))))
+
+(define (make-cross-gcc-toolchain target)
+  (let* ((gcc (cross-gcc target))
+         (binutils (cross-binutils target)))
+    (package
+      (name (string-append "gcc-" target "-toolchain"))
+      (version (package-version gcc))
+      (source #f)
+      (build-system trivial-build-system)
+      (arguments
+       '(#:modules ((guix build union))
+         #:builder
+         (begin
+           (use-modules (ice-9 match)
+                        (guix build union))
+           (match %build-inputs
+                  (((names . directories) ...)
+                   (union-build (assoc-ref %outputs "out")
+                                directories)
+                   #t)))))
+      (propagated-inputs
+       (list binutils gcc))
+      (synopsis (package-synopsis gcc-toolchain))
+      (description (package-description gcc-toolchain))
+      (home-page (package-home-page gcc-toolchain))
+      (license (package-license gcc-toolchain)))))
+
+(define (make-cross-gdb target)
+  (package
+    (inherit gdb)
+    (name (string-append "gdb-" target))
+    (arguments
+     `(#:configure-flags '(,(string-append "--target=" target)
+                           "--enable-multilib"
+                           "--enable-interwork"
+                           "--enable-languages=c,c++"
+                           "--disable-nls")
+       ,@(package-arguments gdb)))))
+
+;; A lot of cross toolchain for bare metal development
+
+(define-public gcc-mipsel-elf-toolchain
+  (make-cross-gcc-toolchain "mipsel-elf"))
+
+(define-public gcc-mips-elf-toolchain
+  (make-cross-gcc-toolchain "mips-elf"))
+
+(define-public gdb-mipsel-elf
+  (make-cross-gdb "mipsel-elf"))
+
+(define-public gdb-mips-elf
+  (make-cross-gdb "mips-elf"))
+
+(define-public gcc-mips64el-elf-toolchain
+  (make-cross-gcc-toolchain "mips64el-elf"))
+
+(define-public gcc-mips64-elf-toolchain
+  (make-cross-gcc-toolchain "mips64-elf"))
+
+(define-public gdb-mips64el-elf
+  (make-cross-gdb "mips64el-elf"))
+
+(define-public gdb-mips64-elf
+  (make-cross-gdb "mips64-elf"))
+
+(define-public gcc-riscv32-elf-toolchain
+  (make-cross-gcc-toolchain "riscv32-elf"))
+
+(define-public gcc-riscv64-elf-toolchain
+  (make-cross-gcc-toolchain "riscv64-elf"))
+
+(define-public gdb-riscv32-elf
+  (make-cross-gdb "riscv32-elf"))
+
+(define-public gdb-riscv64-elf
+  (make-cross-gdb "riscv64-elf"))
-- 
2.39.1