mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 07:10:20 +02:00
Code Activity

DWARF linker: encode strings using the correct form

Browse source 
* module/system/vm/assembler.scm (link-debug): Encode strings using the
  strp form.
This commit is contained in:
Andy Wingo 2013-09-28 18:15:44 +02:00
parent a862d8c138
commit 6371e368e6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/vm/assembler.scm
View file

@ -1564,7 +1564,7 @@ it will be added to the GC roots at runtime."
(define (choose-form attr val code) (define (choose-form attr val code)
(cond (cond
((string? val) 'sec-offset) ((string? val) 'strp)
((exact-integer? code) ((exact-integer? code)
(cond (cond
((< code 0) 'sleb128) ((< code 0) 'sleb128)
@ -1597,7 +1597,7 @@ it will be added to the GC roots at runtime."
(8 (8
(add-die-relocation! 'abs64/1 code) (add-die-relocation! 'abs64/1 code)
(put-u64 die-port 0)))) (put-u64 die-port 0))))
('sec-offset (put-u32 die-port code)))) ('strp (put-u32 die-port code))))
(define (write-die die) (define (write-die die)
(match die (match die