From dd2ec4ecd0e8a59b9b00ba67ce43231b07b712b1 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Tue, 19 Aug 2025 01:36:15 +0200 Subject: [PATCH] gnu: qemu: Enable execlog disassembly. * gnu/packages/virtualization.scm (qemu)[inputs]: Add capstone. [arguments]<#:phases>[install-plugins]: Install contrib. Closes: #2081 Change-Id: I47365707e58a7b61e0d7195e48f819f0a1551f84 --- gnu/packages/virtualization.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 6a098585605..022cce9c6e7 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