[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 2cf4b81 2/5: * Fix GC mark for native compiled funct
From: |
Andrea Corallo |
Subject: |
feature/native-comp 2cf4b81 2/5: * Fix GC mark for native compiled functions |
Date: |
Tue, 10 Mar 2020 08:39:41 -0400 (EDT) |
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;