mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

static-patch! for pair and vector fields

Browse source 
* module/system/vm/assembler.scm (intern-constant): Use static-patch!
  for fields.
This commit is contained in:
Andy Wingo 2013-10-31 19:21:31 +01:00
parent 57a5cc9760
commit c7cb2bc200
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -543,10 +543,10 @@ table, its existing label is used directly."
(define (field dst n obj)
(let ((src (recur obj)))
(if src
(list (if (statically-allocatable? obj)
`(make-non-immediate 1 ,src)
`(static-ref 1 ,src))
`(static-set! 1 ,dst ,n))
(if (statically-allocatable? obj)
`((static-patch! ,dst ,n ,src))
`((static-ref 1 ,src)
(static-set! 1 ,dst ,n)))
'())))
(define (intern obj label)
(cond