From 5b757d930ec0cf102b03fb9817d17e06c72e74b3 Mon Sep 17 00:00:00 2001
From: Hilton Chain <hako@ultrarare.space>
Date: Sat, 5 Nov 2022 23:22:31 +0800
Subject: [PATCH] Locate the kernel bzimage used by Guix System

---
 spectre-meltdown-checker.sh | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/spectre-meltdown-checker.sh b/spectre-meltdown-checker.sh
index 248a444..855a090 100755
--- a/spectre-meltdown-checker.sh
+++ b/spectre-meltdown-checker.sh
@@ -2251,6 +2251,8 @@ if [ "$opt_live" = 1 ]; then
 		[ -e "/boot/kernel-genkernel-$(uname -m)-$(uname -r)" ] && opt_kernel="/boot/kernel-genkernel-$(uname -m)-$(uname -r)"
 		# NixOS:
 		[ -e "/run/booted-system/kernel" ] && opt_kernel="/run/booted-system/kernel"
+		# Guix System:
+		[ -e "/run/booted-system/kernel/bzImage" ] && opt_kernel="/run/booted-system/kernel/bzImage"
 		# systemd kernel-install:
 		[ -e "/etc/machine-id" ] && [ -e "/boot/$(cat /etc/machine-id)/$(uname -r)/linux" ] && opt_kernel="/boot/$(cat /etc/machine-id)/$(uname -r)/linux"
 		# Clear Linux:

base-commit: a6c943d38f315f339697ec26e7374a09b88f2183
--
2.38.0
ce3a6746b6af793a2b7280110'>refs</a><a class='active' href='/guix/log/gnu/packages/abduco.scm'>log</a><a href='/guix/tree/gnu/packages/abduco.scm?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>tree</a><a href='/guix/commit/gnu/packages/abduco.scm?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>commit</a><a href='/guix/diff/gnu/packages/abduco.scm?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/abduco.scm'>
<input type='hidden' name='id' value='286bea0dbad0d29ce3a6746b6af793a2b7280110'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>root</a>/<a href='/guix/log/gnu?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>gnu</a>/<a href='/guix/log/gnu/packages?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>packages</a>/<a href='/guix/log/gnu/packages/abduco.scm?id=286bea0dbad0d29ce3a6746b6af793a2b7280110'>abduco.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/abduco.scm?id=286bea0dbad0d29ce3a6746b6af793a2b7280110&amp;showms<tr><td><span title='2021-06-23 23:35:27 +0200'>2021-06-23</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=ef82ba9dd94369926eb13325d5e7da4306d23dd7'>build: Makefile splits Scheme compilation in four steps.</a><span class='msg-avail'>...<span class='msg-tooltip'>Fixes &lt;https://bugs.gnu.org/48963&gt;.
Reported by Julien Lepiller &lt;julien@lepiller.eu&gt;.

This reduces peak memory consumption to something less unreasonable.

* Makefile.am (make-go): Depend on 'make-*-go' targets; remove body.
(guile-compilation-rule): New function.
(MODULES_CORE, MODULES_PACKAGES, MODULES_SYSTEM, MODULES_CLI): New
variables.
&lt;top level&gt;: Call 'guile-compilation-rule' 4 times.
* build-aux/compile-all.scm &lt;top level&gt;: Expect "--total" and
"--processed".  Take them into account when displaying progress
reports.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-06-18 14:18:06 +0200'>2021-06-18</span></td><td><a href='/guix/commit/build-aux/compile-all.scm?id=003728cfab907be5df1411c5faaf466a2b8d5ba2'>build: Remove Guile 2.2 workaround.</a><span class='msg-avail'>...<span class='msg-tooltip'>* build-aux/compile-all.scm &lt;top level&gt;: Remove Guile 2.2 workaround.
</span></span></td><td>Ludovic Courtès</td></tr>