diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-01-08 16:28:55 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-01-17 17:49:05 +0100 |
commit | 4ab71e1f0d623edc3d11eeba5db8b22229954dff (patch) | |
tree | 81763d4facf945be84d57a68e0f3d1f5ff4624af /test-suite | |
parent | 041f11b353c14246f24ee6330b14d27126a2e2ee (diff) | |
download | guile-4ab71e1f0d623edc3d11eeba5db8b22229954dff.tar.gz |
linker: Linker object writer takes a single argument.
* module/system/vm/linker.scm (write-linker-object): Pass the
'linker-object-writer' a single argument.
(string-table-writer, add-elf-objects): Adjust writers accordingly.
(string-table-writer):
(add-elf-objects):
* module/system/vm/assembler.scm (link-data, link-text-object)
(link-frame-maps, link-dynamic-section)
(link-symtab, link-arities, link-docstrs)
(link-procprops, link-debug): Likewise.
* test-suite/tests/linker.test (link-elf-with-one-main-section):
Likewise.
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/tests/linker.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/linker.test b/test-suite/tests/linker.test index ea54618b4..2dc70963d 100644 --- a/test-suite/tests/linker.test +++ b/test-suite/tests/linker.test @@ -46,8 +46,8 @@ (endianness (target-endianness)) (sec (make-object 1 name (bytevector-length bytes) - (lambda (bv offset) - (bytevector-copy! bytes 0 bv offset + (lambda (bv) + (bytevector-copy! bytes 0 bv 0 (bytevector-length bytes))) '())) |