summaryrefslogtreecommitdiff
path: root/module/system/vm/assembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-09-28 18:15:44 +0200
committerAndy Wingo <wingo@pobox.com>2013-09-28 18:15:50 +0200
commit6371e368e603ceb366f945ee5a6e776be54d6353 (patch)
treeee85b01cfd2a0d54954a309b50942313689b4581 /module/system/vm/assembler.scm
parenta862d8c13893e04ca8b65c8262e305bd18861f4f (diff)
downloadguile-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.scm4
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