ffi: bugfix: basic type needs proper mark function.

* ffi.c (ffi_type_common_mark, ffi_type_mark): New
static function
(ffi_struct_type_mark, ffi_ptr_type_mark): Use new
ffi_type_common_mark function for common members.
(ffi_type_builtin_ops): Wire in ffi_type_mark.

1 files changed, 15 insertions, 5 deletions

diff --git a/ffi.c b/ffi.c
index 55f58c01..f07ba506 100644
--- a/ffi.c
+++ b/ffi.c
@@ -186,12 +186,23 @@ static void ffi_type_struct_destroy_op(val obj)
   free(tft);
 }
 
+static void ffi_type_common_mark(struct txr_ffi_type *tft)
+{
+  gc_mark(tft->lt);
+  gc_mark(tft->syntax);
+}
+
+static void ffi_type_mark(val obj)
+{
+  struct txr_ffi_type *tft = ffi_type_struct(obj);
+  ffi_type_common_mark(tft);
+}
+
 static void ffi_struct_type_mark(val obj)
 {
   struct txr_ffi_type *tft = ffi_type_struct(obj);
   cnum i;
-  gc_mark(tft->lt);
-  gc_mark(tft->syntax);
+  ffi_type_common_mark(tft);
 
   if (tft->eltype)
     gc_mark(tft->eltype);
@@ -207,8 +218,7 @@ static void ffi_struct_type_mark(val obj)
 static void ffi_ptr_type_mark(val obj)
 {
   struct txr_ffi_type *tft = ffi_type_struct(obj);
-  gc_mark(tft->lt);
-  gc_mark(tft->syntax);
+  ffi_type_common_mark(tft);
   gc_mark(tft->eltype);
 }
 
@@ -216,7 +226,7 @@ static struct cobj_ops ffi_type_builtin_ops =
   cobj_ops_init(eq,
                 ffi_type_print_op,
                 cobj_destroy_free_op,
-                cobj_mark_op,
+                ffi_type_mark,
                 cobj_eq_hash_op);
 
 static struct cobj_ops ffi_type_struct_ops =