me
/
guix
Archived
1
0
Fork 0
Code

installer: Fix segfault on double logical partition removal. 

* gnu/installer/parted.scm (auto-partition!): Avoid removing logical
partitions twice.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
master
Josselin Poiret 2022-08-31 23:22:55 +02:00 committed by Mathieu Othacehe
parent c3b1cfe76b
commit 4989f6acff
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/installer/parted.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2022 Josselin Poiret <dev@jpoiret.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -983,6 +984,11 @@ exists."
(for-each (for-each
(lambda (partition) (lambda (partition)
(and (data-partition? partition) (and (data-partition? partition)
;; Do not remove logical partitions ourselves, since
;; disk-remove-partition* will remove all the logical partitions
;; residing on an extended partition, which would lead to a
;; double-remove and ensuing SEGFAULT.
(not (logical-partition? partition))
(disk-remove-partition* disk partition))) (disk-remove-partition* disk partition)))
non-boot-partitions) non-boot-partitions)