summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@friendly-machines.com>2025-08-19 01:36:15 +0200
committerDanny Milosavljevic <dannym@friendly-machines.com>2025-09-01 17:35:11 +0200
commitdd2ec4ecd0e8a59b9b00ba67ce43231b07b712b1 (patch)
treed123e85f774219582934dd0e9a3c7770c2dc9f0f
parentdb6361bc2bf3416fde9fda6f51b49192f17022af (diff)
gnu: qemu: Enable execlog disassembly.
* gnu/packages/virtualization.scm (qemu)[inputs]: Add capstone. [arguments]<#:phases>[install-plugins]: Install contrib. Closes: #2081 Change-Id: I47365707e58a7b61e0d7195e48f819f0a1551f84
-rw-r--r--gnu/packages/virtualization.scm12
1 files changed, 12 insertions, 0 deletions
diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm
index 6a09858560..022cce9c6e 100644
--- a/gnu/packages/virtualization.scm
+++ b/gnu/packages/virtualization.scm
@@ -93,6 +93,7 @@
#:use-module (gnu packages dns)
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
+ #:use-module (gnu packages engineering)
#:use-module (gnu packages figlet)
#:use-module (gnu packages file)
#:use-module (gnu packages firmware)
@@ -461,6 +462,16 @@
(lambda args
(with-directory-excursion "../user-static"
(apply (assoc-ref %standard-phases 'build) args))))
+ (add-after 'install 'install-plugins
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((plugin-dir (string-append
+ (assoc-ref outputs "out")
+ "/lib/qemu/plugins")))
+ (mkdir-p plugin-dir)
+ (with-directory-excursion "contrib/plugins"
+ (for-each
+ (cut install-file <> plugin-dir)
+ (find-files "." "\\.so$"))))))
(add-after 'install 'install-user-static
(lambda* (#:key outputs #:allow-other-keys)
(let ((static-bin (string-append
@@ -523,6 +534,7 @@ exec smbd $@")))
'())
(list alsa-lib
bash-minimal
+ capstone
dtc
glib
gnutls ;for qcow2 disk encryption