From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 29 Feb 2020 11:05:46 +0000 (+0000)
Subject: * Reduce stack depth while marking native compiled subrs
X-Git-Tag: emacs-28.0.90~2727^2~809
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62384df2656c0a57cdc07ac5397e22fa450a7de1;p=emacs.git

* Reduce stack depth while marking native compiled subrs
---

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;