| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/lang/sbcl/files/ |
Upload File : |
From 48d686f9718f98122547a9006c871cfcd50439ab Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Sun, 31 Jul 2022 21:38:19 -0400
Subject: [PATCH] Accept that value-cell-value can move to R/O space
Fixes lp#1983218
--- src/runtime/stringspace.c.orig 2022-07-29 14:39:18 UTC
+++ src/runtime/stringspace.c
@@ -76,6 +76,7 @@ static void visit_pointer_words(lispobj* object, lispo
widetag == RATIO_WIDETAG || widetag == COMPLEX_WIDETAG ||
widetag == SIMPLE_ARRAY_WIDETAG ||
(widetag >= COMPLEX_BASE_STRING_WIDETAG && widetag <= COMPLEX_ARRAY_WIDETAG) ||
+ widetag == VALUE_CELL_WIDETAG ||
widetag == WEAK_POINTER_WIDETAG) {
int len = object_size(object), i;
for (i=1; i<len; ++i) FIX(object[i]);