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

assembler: Separate effectful part of 'link-docstrs'.

Browse source 
* module/system/vm/assembler.scm (link-docstrs): Define
'write-docstrings!' and use it.
This commit is contained in:
Ludovic Courtès 2023-01-06 17:06:47 +01:00
parent 13e2d5b66b
commit d439a3f671
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2684,16 +2684,19 @@ procedure with label @var{rw-init}. @var{rw-init} may be false. If
(docstrings (find-docstrings))
(strtab (make-string-table))
(bv (make-bytevector (* (length docstrings) docstr-size) 0)))
(fold (lambda (pair pos)
(match pair
((pc . string)
(bytevector-u32-set! bv pos pc endianness)
(bytevector-u32-set! bv (+ pos 4)
(string-table-intern! strtab string)
endianness)
(+ pos docstr-size))))
0
docstrings)
(define (write-docstrings! bv offset)
(fold (lambda (pair pos)
(match pair
((pc . string)
(bytevector-u32-set! bv pos pc endianness)
(bytevector-u32-set! bv (+ pos 4)
(string-table-intern! strtab string)
endianness)
(+ pos docstr-size))))
offset
docstrings))
(write-docstrings! bv 0)
(let ((strtab (make-object asm '.guile.docstrs.strtab
(link-string-table! strtab)
'() '()