feature/native-comp 62384df 2/7: * Reduce stack depth while marking native compiled subrs

[Andrea Corallo]

branch: feature/native-comp
commit 62384df2656c0a57cdc07ac5397e22fa450a7de1
Author: Andrea Corallo <address@hidden>
Commit: Andrea Corallo <address@hidden>

    * 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 354c6f0..9a01edc 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;