X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Findividual.c;h=b9652ef87ca28e557bb3a464059af1ec0b217f94;hb=8073f669d16f11bfd50d42bb2cf6fdb79d358565;hp=33c4c6c512ff60c8156f476edc500b8758a275c5;hpb=d2d823fd4fe80162765029e5bc29f9b4f6f968f5;p=gedcom-parse.git

diff --git a/gom/individual.c b/gom/individual.c
index 33c4c6c..b9652ef 100644
--- a/gom/individual.c
+++ b/gom/individual.c
@@ -47,7 +47,6 @@ DEFINE_DESTROYFUNC(individual, gom_first_individual)
 DEFINE_ADDFUNC(individual, XREF_INDI)
 DEFINE_DELETEFUNC(individual)
 DEFINE_GETXREFFUNC(individual, XREF_INDI)
-DEFINE_MAKELINKFUNC(individual, XREF_INDI)
      
 DEFINE_REC_CB(individual, indi_start)
 DEFINE_STRING_CB(individual, indi_resn_start, restriction_notice)
@@ -103,6 +102,29 @@ void individual_add_family_link(Gom_ctxt ctxt, int ctxt_type,
   }
 }
 
+void UNREFALLFUNC(individual)(struct individual *obj)
+{
+  if (obj) {
+    UNREFALLFUNC(personal_name)(obj->name);
+    UNREFALLFUNC(event)(obj->event);
+    UNREFALLFUNC(event)(obj->attribute);
+    UNREFALLFUNC(lds_event)(obj->lds_individual_ordinance);
+    UNREFALLFUNC(family_link)(obj->child_to_family);
+    UNREFALLFUNC(family_link)(obj->spouse_to_family);
+    UNREFALLFUNC(xref_list)(obj->submitters);
+    UNREFALLFUNC(association)(obj->association);
+    UNREFALLFUNC(xref_list)(obj->alias);
+    UNREFALLFUNC(xref_list)(obj->ancestor_interest);
+    UNREFALLFUNC(xref_list)(obj->descendant_interest);
+    UNREFALLFUNC(source_citation)(obj->citation);
+    UNREFALLFUNC(multimedia_link)(obj->mm_link);
+    UNREFALLFUNC(note_sub)(obj->note);
+    UNREFALLFUNC(user_ref_number)(obj->ref);
+    UNREFALLFUNC(change_date)(obj->change_date);
+    UNREFALLFUNC(user_data)(obj->extra);
+  }
+}
+
 void CLEANFUNC(individual)(struct individual* indiv)
 {
   if (indiv) {