mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

elf: Add missing argument in 'elf-segment'.

Browse source 
* guix/elf.scm (elf-segment): Add missing argument N.
This commit is contained in:
Ludovic Courtès 2015-03-30 15:20:55 +02:00
parent 8d30be32fa
commit 96af558907
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/elf.scm
View file

@ -1,6 +1,6 @@
;;; Guile ELF reader and writer ;;; Guile ELF reader and writer
;; Copyright (C) 2011, 2012, 2013, 2014 Free Software Foundation, Inc. ;; Copyright (C) 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -571,6 +571,7 @@ (define (elf-segment elf n)
((4) parse-elf32-program-header) ((4) parse-elf32-program-header)
((8) parse-elf64-program-header) ((8) parse-elf64-program-header)
(else (error "unhandled pointer size"))) (else (error "unhandled pointer size")))
n
(elf-bytes elf) (elf-bytes elf)
(+ (elf-phoff elf) (* n (elf-phentsize elf))) (+ (elf-phoff elf) (* n (elf-phentsize elf)))
(elf-byte-order elf))) (elf-byte-order elf)))