summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2019-02-22 15:01:01 +0100
committerAndy Wingo <wingo@pobox.com>2019-02-22 15:01:01 +0100
commitc537f938d1c809eb26e42c66bcc2b67ee4f47300 (patch)
tree145686fa868ce7f30ff10c75be28fae974d48419
parent667e511dc39c1a2151e6308f2cab7ffd184e4cda (diff)
downloadguile-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.test5
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)