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

constant-interning fix

Browse source 
(Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)

* module/system/vm/assembler.scm (intern-constant): Switch from using
  vector-ref/immediate to make-short-immediate.
This commit is contained in:
Robin Templeton 2014-07-18 17:41:48 -04:00 • committed by Christine Lemmer-Webber
parent c25539c9dc
commit 8351f21d6d
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1358,7 +1358,8 @@ table, its existing label is used directly."
(else
(if (asm-to-file? asm)
(error "don't know how to intern" obj)
`((vector-ref/immediate 1 0 ,(vlist-length (asm-constants asm)))
`((make-short-immediate 1 ,(vlist-length (asm-constants asm)))
(vector-ref 1 0 1)
(static-set! 1 ,label 0))))))
(cond
((immediate-bits asm obj) #f)