X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fdata.c;h=20100db3b56f4b1ededd3341fb856b4cfd725cc6;hb=667a2b3a2dbea07c3c228e17d986110cc6a33084;hp=0bfe4625d3ba217de4a309e0956df4cf693caf68;hpb=0e904fc68e7429eda789ded8f73075ead2ad2584;p=chise%2Fxemacs-chise.git

diff --git a/src/data.c b/src/data.c
index 0bfe462..20100db 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1623,9 +1623,16 @@ make_weak_list (enum weak_list_type type)
   return result;
 }
 
+static const struct lrecord_description weak_list_description[] = {
+  { XD_LISP_OBJECT, offsetof(struct weak_list, list), 1 },
+  { XD_LISP_OBJECT, offsetof(struct weak_list, next_weak), 1 },
+  { XD_END }
+};
+
 DEFINE_LRECORD_IMPLEMENTATION ("weak-list", weak_list,
 			       mark_weak_list, print_weak_list,
 			       0, weak_list_equal, weak_list_hash,
+			       weak_list_description,
 			       struct weak_list);
 /*
    -- we do not mark the list elements (either the elements themselves