diff options
author | Andy Wingo <wingo@pobox.com> | 2013-05-01 22:20:15 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-05-01 22:20:15 +0200 |
commit | c20e6d6a83422348b3e550420f7044700d13b6a9 (patch) | |
tree | 61138f2638eba062fa0910133807ac7e24ddafce | |
parent | 5435777906d9ab5ab4baa9ba7a121fa03689ae69 (diff) | |
download | guile-c20e6d6a83422348b3e550420f7044700d13b6a9.tar.gz |
fix linker bug
* module/system/vm/linker.scm (add-elf-objects): Fix bug in which
shentsize was specified as phentsize.
-rw-r--r-- | module/system/vm/linker.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/linker.scm b/module/system/vm/linker.scm index 0be5eba01..8407462e8 100644 --- a/module/system/vm/linker.scm +++ b/module/system/vm/linker.scm @@ -398,7 +398,7 @@ (define (make-header phnum index shoff-label) (let* ((header (make-elf #:byte-order endianness #:word-size word-size #:phoff phoff #:phnum phnum #:phentsize phentsize - #:shoff 0 #:shnum shnum #:shentsize phentsize + #:shoff 0 #:shnum shnum #:shentsize shentsize #:shstrndx (or (find-shstrndx objects) SHN_UNDEF))) (shoff-reloc (make-linker-reloc reloc-kind (elf-header-shoff-offset word-size) |