* Reduce stack depth while marking native compiled subrs

1 files changed, 3 insertions, 1 deletions

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;