diff options
author | Andy Wingo <wingo@pobox.com> | 2019-02-22 15:01:01 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2019-02-22 15:01:01 +0100 |
commit | c537f938d1c809eb26e42c66bcc2b67ee4f47300 (patch) | |
tree | 145686fa868ce7f30ff10c75be28fae974d48419 | |
parent | 667e511dc39c1a2151e6308f2cab7ffd184e4cda (diff) | |
download | guile-c537f938d1c809eb26e42c66bcc2b67ee4f47300.tar.gz |
Fix linker.test
* test-suite/tests/linker.test (link-elf-with-one-main-section): Adapt
to change in c9e052be495de408e834018f5cc0401874f06c7d.
-rw-r--r-- | test-suite/tests/linker.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/linker.test b/test-suite/tests/linker.test index dcfac1b81..e7ecc291e 100644 --- a/test-suite/tests/linker.test +++ b/test-suite/tests/linker.test @@ -1,6 +1,6 @@ ;;;; linker.test -*- scheme -*- ;;;; -;;;; Copyright 2013 Free Software Foundation, Inc. +;;;; Copyright 2013, 2019 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 @@ -27,7 +27,8 @@ (let ((strtab (make-string-table))) (define (make-object index name bv relocs . kwargs) (let ((name-idx (string-table-intern! strtab (symbol->string name)))) - (make-linker-object (apply make-elf-section + (make-linker-object (symbol->string name) + (apply make-elf-section #:index index #:name name-idx #:size (bytevector-length bv) |