[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 12/36: constant-interning fix
From: |
Christopher Allan Webber |
Subject: |
[Guile-commits] 12/36: constant-interning fix |
Date: |
Tue, 19 Oct 2021 18:11:24 -0400 (EDT) |
cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.
commit 8351f21d6d6f0407c05efa9606cbecd06d9dbdc9
Author: Robin Templeton <robin@terpri.org>
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)
- [Guile-commits] 01/36: Remove CFLAGS from snarfcppopts., (continued)
- [Guile-commits] 01/36: Remove CFLAGS from snarfcppopts., Christopher Allan Webber, 2021/10/19
- [Guile-commits] 02/36: intern arbitrary constants, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 05/36: guile-private-ref, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 06/36: allow arbitrary constants in cps, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 07/36: guile-snarf fix, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 03/36: check symbols constants uninterned, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 04/36: multiple obarrays, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 09/36: read nil/t as #nil/#t, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 10/36: symbol default value procedures, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 11/36: defvar affects default value, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 12/36: constant-interning fix,
Christopher Allan Webber <=
- [Guile-commits] 14/36: restore special operator handling, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 08/36: elisp updates, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 13/36: define-module for elisp special modules, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 16/36: compile-elisp fn, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 15/36: fix symbol-function, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 18/36: defconst, defvar: proclaim special at compile-time, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 19/36: compiler macros, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 21/36: use defsubst, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 23/36: eval-when, Christopher Allan Webber, 2021/10/19
- [Guile-commits] 26/36: top level fixes, Christopher Allan Webber, 2021/10/19