diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2018-08-25 16:44:07 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2018-08-25 16:44:07 +0200 |
| commit | 839167ff9d74fc490b32f6a197591964f73b65e5 (patch) | |
| tree | d193bfad7c9ef5597c5cd7d2ea25fd007d01f88a /gnu/build/linux-modules.scm | |
| parent | 27c1df05a866b639a61e16d48b3f2da8fa5eb767 (diff) | |
| parent | 030c912616c8ee1595218e304460041bcb4f1ceb (diff) | |
| download | guix-839167ff9d74fc490b32f6a197591964f73b65e5.tar guix-839167ff9d74fc490b32f6a197591964f73b65e5.tar.gz | |
Merge branch 'staging' into core-updates
Diffstat (limited to 'gnu/build/linux-modules.scm')
| -rw-r--r-- | gnu/build/linux-modules.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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 (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 @@ string list." 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))))) |