feature/native-comp 2cf4b81 2/5: * Fix GC mark for native compiled functions

[Andrea Corallo]

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

    * 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.
---
 src/alloc.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index 9a01edc..ac17307 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;