From 8351f21d6d6f0407c05efa9606cbecd06d9dbdc9 Mon Sep 17 00:00:00 2001 From: Robin Templeton Date: Fri, 18 Jul 2014 17:41:48 -0400 Subject: 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 93cbb4d70..d2231cacc 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) -- cgit v1.2.1