From 62384df2656c0a57cdc07ac5397e22fa450a7de1 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 29 Feb 2020 11:05:46 +0000
Subject: [PATCH] * Reduce stack depth while marking native compiled subrs
---
src/alloc.c | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/alloc.c b/src/alloc.c
index 354c6f09cc5..9a01edca3f8 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6683,7 +6683,9 @@ mark_object (Lisp_Object arg)
{
set_vector_marked (ptr);
struct Lisp_Subr *subr = XSUBR (obj);
- mark_object (subr->native_comp_u[0]);
+ obj = subr->native_comp_u[0];
+ eassert (obj);
+ goto loop;
}
break;
--
2.39.5