From f43d2dcd80c201600fb161f0f3076daaccc46a2c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 21 Aug 2018 14:38:15 +0200 Subject: linux-modules: Adjust 'section-contents' procedure. * gnu/build/linux-modules.scm (section-contents): Honor SECTION as was intended. (modinfo-section-contents): Pass 'section-contents' a section, not a section name. --- gnu/build/linux-modules.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'gnu/build/linux-modules.scm') diff --git a/gnu/build/linux-modules.scm b/gnu/build/linux-modules.scm index 9c8761527a..ae141b6f54 100644 --- a/gnu/build/linux-modules.scm +++ b/gnu/build/linux-modules.scm @@ -58,11 +58,10 @@ (define current-module-debugging-port (define (section-contents elf section) "Return the contents of SECTION in ELF as a bytevector." - (let* ((modinfo (elf-section-by-name elf ".modinfo")) - (contents (make-bytevector (elf-section-size modinfo)))) - (bytevector-copy! (elf-bytes elf) (elf-section-offset modinfo) + (let ((contents (make-bytevector (elf-section-size section)))) + (bytevector-copy! (elf-bytes elf) (elf-section-offset section) contents 0 - (elf-section-size modinfo)) + (elf-section-size section)) contents)) (define %not-nul @@ -85,7 +84,8 @@ (define (modinfo-section-contents file) key/value pairs.." (let* ((bv (call-with-input-file file get-bytevector-all)) (elf (parse-elf bv)) - (modinfo (section-contents elf ".modinfo"))) + (section (elf-section-by-name elf ".modinfo")) + (modinfo (section-contents elf section))) (map key=value->pair (nul-separated-string->list (utf8->string modinfo))))) -- cgit v1.2.3