gcl.git - GNU Common Lisp

index : gcl.git
GNU Common Lisp
summary refs log tree commit diff
diff options
context:
space:
mode:
authorCamm Maguire <camm@debian.org>2015年02月02日 16:24:31 -0500
committerCamm Maguire <camm@debian.org>2015年02月02日 16:24:31 -0500
commita9602c9bd9f905dc6e65063bcf2b6c799f776e3b (patch)
treef48e68b93ec0a6c54deaa33fc05af8481b1847f0
parenteffd6c0c2827fec71bb7979d4773ae6cbbf14c8a (diff)
downloadgcl-page_multiple.tar.gz
check that stack objects are object aligned before markingpage_multiple
Diffstat
-rwxr-xr-xgcl/o/gbc.c 2
1 files changed, 2 insertions, 0 deletions
diff --git a/gcl/o/gbc.c b/gcl/o/gbc.c
index 6be9f5fef..589012f42 100755
--- a/gcl/o/gbc.c
+++ b/gcl/o/gbc.c
@@ -879,6 +879,8 @@ mark_stack_carefully(void *topv, void *bottomv, int offset) {
if (is_marked_or_free(x)) continue;
+ if (((unsigned long)x%OBJ_ALIGNMENT)) continue;
+
#ifdef SGC
if (sgc_enabled)
sgc_mark_object(x);
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月02日 06:02:29 +0000

AltStyle によって変換されたページ (->オリジナル) /