cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 8351f21d6d6f0407c05efa9606cbecd06d9dbdc9
Author: Robin Templeton <[email protected]>
AuthorDate: Fri Jul 18 17:41:48 2014 -0400
constant-interning fix
(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.
---
module/system/vm/assembler.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 93cbb4d..d2231ca 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -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)
