mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

check symbols constants uninterned

Browse source 
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)

* module/system/vm/assembler.scm (intern-constant, link-data):
  Update to check "symbol-interned?".
This commit is contained in:
Robin Templeton 2014-06-10 22:57:05 -04:00 • committed by Christopher Allan Webber
parent d808027782
commit 175b64aed2
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

@ -1038,7 +1038,7 @@ table, its existing label is used directly."
((static-procedure? obj)
`((static-patch! ,label 1 ,(static-procedure-code obj))))
((cache-cell? obj) '())
((symbol? obj)
((and (symbol? obj) (symbol-interned? obj))
`((make-non-immediate 1 ,(recur (symbol->string obj)))
(string->symbol 1 1)
(static-set! 1 ,label 0)))
@ -1509,7 +1509,7 @@ should be .data or .rodata), and return the resulting linker object.
(write-constant-reference buf pos elt)
(lp (1+ i)))))))
((symbol? obj)
((and (symbol? obj) (symbol-interned? obj))
(write-placeholder asm buf pos))
((keyword? obj)