diff options
author | Andy Wingo <wingo@pobox.com> | 2013-09-28 18:15:44 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-09-28 18:15:50 +0200 |
commit | 6371e368e603ceb366f945ee5a6e776be54d6353 (patch) | |
tree | ee85b01cfd2a0d54954a309b50942313689b4581 /module/system/vm/assembler.scm | |
parent | a862d8c13893e04ca8b65c8262e305bd18861f4f (diff) | |
download | guile-6371e368e603ceb366f945ee5a6e776be54d6353.tar.gz |
DWARF linker: encode strings using the correct form
* module/system/vm/assembler.scm (link-debug): Encode strings using the
strp form.
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 1b909a8d0..26dc3457b 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -1564,7 +1564,7 @@ it will be added to the GC roots at runtime." (define (choose-form attr val code) (cond - ((string? val) 'sec-offset) + ((string? val) 'strp) ((exact-integer? code) (cond ((< code 0) 'sleb128) @@ -1597,7 +1597,7 @@ it will be added to the GC roots at runtime." (8 (add-die-relocation! 'abs64/1 code) (put-u64 die-port 0)))) - ('sec-offset (put-u32 die-port code)))) + ('strp (put-u32 die-port code)))) (define (write-die die) (match die |