diff options
| -rw-r--r-- | module/system/vm/assembler.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index 343f4f1ff..0a1039304 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -1099,7 +1099,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) |