From dfa11aa3f60847a252b797023530e8cd19ed03da Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 30 Mar 2015 15:19:58 +0200 Subject: [PATCH] elf: Add missing argument in 'elf-segment'. * module/system/vm/elf.scm (elf-segment): Add missing argument N. --- module/system/vm/elf.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/module/system/vm/elf.scm b/module/system/vm/elf.scm index b618761ad..6ee62f129 100644 --- a/module/system/vm/elf.scm +++ b/module/system/vm/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 @@ -567,6 +567,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)))