[Guile-commits] 10/13: Assembler writes vector source properties

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 7e01042337e9637482790d60b1f467a740960655
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Feb 25 16:06:09 2021 +0100

    Assembler writes vector source properties
    
    * module/system/vm/assembler.scm (intern-constant, link-data): Write the
    vector representation of source instead of the alist.  Saves a lot of
    heap size, object file size, and init time when serializing syntax
    objects with source.
---
 module/system/vm/assembler.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index e5d8152..8139263 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -1292,7 +1292,7 @@ table, its existing label is used directly."
       (patch! 1 (syntax-expression obj))
       (patch! 2 (syntax-wrap obj))
       (patch! 3 (syntax-module obj))
-      (patch! 4 (syntax-source obj)))
+      (patch! 4 (syntax-sourcev obj)))
      ((stringbuf? obj))
      ((static-procedure? obj)
       ;; Special case, as we can't load the procedure's code using
@@ -1986,7 +1986,7 @@ should be .data or .rodata), and return the resulting 
linker object.
         (write-constant-reference buf (+ pos (* 3 word-size))
                                   (syntax-module obj))
         (write-constant-reference buf (+ pos (* 4 word-size))
-                                  (syntax-source obj)))
+                                  (syntax-sourcev obj)))
 
        ((number? obj)
         (write-placeholder asm buf pos))