summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobin Templeton <robin@terpri.org>2014-07-18 17:41:48 -0400
committerChristopher Allan Webber <cwebber@dustycloud.org>2016-03-25 12:00:11 -0700
commit8a90afb9eea0d9cf790770d333de85aa7063428a (patch)
tree1e1321efd0725cd8b3ae2adef8bb2d6fd1a8a820
parentefc4163b5607870f2622e68254aa7e1b7502899d (diff)
downloadguile-8a90afb9eea0d9cf790770d333de85aa7063428a.tar.gz
constant-interning fix
(Best-ability ChangeLog annotation added by Christopher Allan Webber.) * module/system/vm/assembler.scm (intern-constant): Switch from using vector-ref/immediate to make-short-immediate.
-rw-r--r--module/system/vm/assembler.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index 38cce27f1..3b8f89513 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -1073,7 +1073,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)