From e8c7d302d29ab1da25c38838f9a5459aa6e98f92 Mon Sep 17 00:00:00 2001
From: Patrick Norton <patrick.147.norton@gmail.com>
Date: Mon, 10 Nov 2025 08:09:01 -0500
Subject: [PATCH] gnu: qtmips: Update to 0.8.1.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/emulators.scm (qtmips): Update to 0.8.1.
[arguments]: Adjust accordingly.

Closes: guix/guix#4176
Change-Id: I1537d9154547a7faaba212ca457b35d04c2e742d
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/emulators.scm | 43 ++------------------------------------
 1 file changed, 2 insertions(+), 41 deletions(-)

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index cfc1ae680ad3ffa96f158e6532f1a8df9f090bc6..9fd407dcce7a38ed3603e38c1cdd51af8abb1755 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -861,7 +861,7 @@ emulate a serial nullmodem over TCP/IP.")
 (define-public qtmips
   (package
     (name "qtmips")
-    (version "0.7.5")
+    (version "0.8.1")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -870,47 +870,8 @@ emulate a serial nullmodem over TCP/IP.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1fal7a8y5g0rqqjrk795jh1l50ihz01ppjnrfjrk9vkjbd59szbp"))))
+                "1gmlr43wjq0fki9d77n7s6jly4n6kd6hq2af0zni348b4a4qn8bn"))))
     (build-system qt-build-system)
-    (arguments
-     (list
-      #:modules '((guix build qt-build-system)
-                  ((guix build gnu-build-system) #:prefix gnu:)
-                  (guix build utils))
-      #:phases
-      #~(modify-phases %standard-phases
-          (replace 'configure
-            (lambda* (#:key outputs #:allow-other-keys)
-              (invoke "qmake"
-                      (string-append "PREFIX=" (assoc-ref outputs "out"))
-                      "qtmips.pro")))
-          (replace 'build (assoc-ref gnu:%standard-phases 'build))
-          (replace 'check
-            (lambda* (#:key tests? #:allow-other-keys)
-              (substitute* "tests/test.sh"
-                (("qtchooser.*") ""))
-              (substitute* '("tests/cpu_trap/test.sh"
-                             "tests/registers/test.sh")
-                (("sub-qtmips_cli") "qtmips_cli"))
-              (if tests?
-                (invoke "tests/run-all.sh")
-                #t)))
-          (replace 'install
-            ;; There is no install target.
-            (lambda* (#:key outputs #:allow-other-keys)
-              (let* ((out (assoc-ref outputs "out"))
-                     (bin (string-append out "/bin"))
-                     (apps (string-append out "/share/applications"))
-                     (icons (string-append out "/share/icons/hicolor")))
-                (install-file "qtmips_gui/qtmips_gui" bin)
-                (install-file "qtmips_cli/qtmips_cli" bin)
-                (install-file "data/qtmips.desktop" apps)
-                (install-file "data/icons/qtmips_gui.svg"
-                              (string-append icons "/scalable/apps"))
-                (install-file "data/icons/qtmips_gui.png"
-                              (string-append icons "/48x48/apps"))
-                #t))))
-        #:tests? #f))    ; test suite wants mips toolchain
     (inputs
      (list elfutils qtbase-5 qtwayland-5))
     (home-page "https://github.com/cvut/QtMips")