[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/36: check symbols constants uninterned
From: |
Christopher Allan Webber |
Subject: |
[Guile-commits] 03/36: check symbols constants uninterned |
Date: |
Fri, 25 Mar 2016 20:02:24 +0000 |
cwebber pushed a commit to branch wip-elisp
in repository guile.
commit 175b64aed21df66061e00d2a7063fc6533f08d66
Author: Robin Templeton <address@hidden>
Date: Tue Jun 10 22:57:05 2014 -0400
check symbols constants uninterned
(Best-ability ChangeLog annotation added by Christopher Allan Webber.)
* module/system/vm/assembler.scm (intern-constant, link-data):
Update to check "symbol-interned?".
---
module/system/vm/assembler.scm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index efc370a..38cce27 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -1038,7 +1038,7 @@ table, its existing label is used directly."
((static-procedure? obj)
`((static-patch! ,label 1 ,(static-procedure-code obj))))
((cache-cell? obj) '())
- ((symbol? obj)
+ ((and (symbol? obj) (symbol-interned? obj))
`((make-non-immediate 1 ,(recur (symbol->string obj)))
(string->symbol 1 1)
(static-set! 1 ,label 0)))
@@ -1509,7 +1509,7 @@ should be .data or .rodata), and return the resulting
linker object.
(write-constant-reference buf pos elt)
(lp (1+ i)))))))
- ((symbol? obj)
+ ((and (symbol? obj) (symbol-interned? obj))
(write-placeholder asm buf pos))
((keyword? obj)
- [Guile-commits] branch wip-elisp created (now 15ca784), Christopher Allan Webber, 2016/03/25
- [Guile-commits] 01/36: Remove CFLAGS from snarfcppopts., Christopher Allan Webber, 2016/03/25
- [Guile-commits] 02/36: intern arbitrary constants, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 03/36: check symbols constants uninterned,
Christopher Allan Webber <=
- [Guile-commits] 06/36: allow arbitrary constants in cps, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 05/36: guile-private-ref, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 04/36: multiple obarrays, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 07/36: prefer compilers earlier in list, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 08/36: guile-snarf fix, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 09/36: elisp updates, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 10/36: read nil/t as #nil/#t, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 12/36: defvar affects default value, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 11/36: symbol default value procedures, Christopher Allan Webber, 2016/03/25
- [Guile-commits] 14/36: define-module for elisp special modules, Christopher Allan Webber, 2016/03/25