summaryrefslogtreecommitdiff
path: root/guix/elf.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-30 15:20:55 +0200
committerLudovic Courtès <ludo@gnu.org>2015-03-30 15:21:11 +0200
commit96af558907fecb22086a4ebc260b20f34fb25335 (patch)
tree56fd7e7091057473223ea1671b7f8881c9d15d19 /guix/elf.scm
parent8d30be32fa01a191d341804b7614a722da950f84 (diff)
downloadgnu-guix-96af558907fecb22086a4ebc260b20f34fb25335.tar
gnu-guix-96af558907fecb22086a4ebc260b20f34fb25335.tar.gz
elf: Add missing argument in 'elf-segment'.
* guix/elf.scm (elf-segment): Add missing argument N.
Diffstat (limited to 'guix/elf.scm')
-rw-r--r--guix/elf.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/elf.scm b/guix/elf.scm
index a4b0e819a5..4283dbd2e4 100644
--- a/guix/elf.scm
+++ b/guix/elf.scm
@@ -1,6 +1,6 @@
;;; 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
;;;; modify it under the terms of the GNU Lesser General Public
@@ -571,6 +571,7 @@
((4) parse-elf32-program-header)
((8) parse-elf64-program-header)
(else (error "unhandled pointer size")))
+ n
(elf-bytes elf)
(+ (elf-phoff elf) (* n (elf-phentsize elf)))
(elf-byte-order elf)))