From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 9 Mar 2020 10:45:51 +0000 (+0000)
Subject: * Fix GC mark for native compiled functions
X-Git-Tag: emacs-28.0.90~2727^2~782
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2cf4b81009eeedd1b441af093c0ca147d0d9bbb9;p=emacs.git

* Fix GC mark for native compiled functions

native_intspec and native_doc fields has to be reached by the subr
cause are not anymore in the CU.
---

diff --git a/src/alloc.c b/src/alloc.c
index 9a01edca3f8..ac173077132 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6683,9 +6683,9 @@ mark_object (Lisp_Object arg)
 	      {
 		set_vector_marked (ptr);
 		struct Lisp_Subr *subr = XSUBR (obj);
-		obj = subr->native_comp_u[0];
-		eassert (obj);
-		goto loop;
+		mark_object (subr->native_intspec);
+		mark_object (subr->native_doc);
+		mark_object (subr->native_comp_u[0]);
 	      }
 	    break;