mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix linker.test

Browse source 
* test-suite/tests/linker.test (link-elf-with-one-main-section): Adapt
  to change in c9e052be49.
This commit is contained in:
Andy Wingo 2019-02-22 15:01:01 +01:00
parent 667e511dc3
commit c537f938d1
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/linker.test
View file

@ -1,6 +1,6 @@
;;;; linker.test -*- scheme -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -27,7 +27,8 @@
(let ((strtab (make-string-table))) (let ((strtab (make-string-table)))
(define (make-object index name bv relocs . kwargs) (define (make-object index name bv relocs . kwargs)
(let ((name-idx (string-table-intern! strtab (symbol->string name)))) (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 #:index index
#:name name-idx #:name name-idx
#:size (bytevector-length bv) #:size (bytevector-length bv)