X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Ffamily.c;h=9d4a4e562f5c46822409dcb24f9a09af06580646;hb=1b7536d78e236978e83fbf8acc9f90e2141e13b0;hp=9375b1ff209dd172cb583eacc29aa1c6de3df4ed;hpb=d2d823fd4fe80162765029e5bc29f9b4f6f968f5;p=gedcom-parse.git

diff --git a/gom/family.c b/gom/family.c
index 9375b1f..9d4a4e5 100644
--- a/gom/family.c
+++ b/gom/family.c
@@ -45,7 +45,6 @@ DEFINE_DESTROYFUNC(family, gom_first_family)
 DEFINE_ADDFUNC(family, XREF_FAM)
 DEFINE_DELETEFUNC(family)
 DEFINE_GETXREFFUNC(family, XREF_FAM)
-DEFINE_MAKELINKFUNC(family, XREF_FAM)
      
 DEFINE_REC_CB(family, fam_start)
 DEFINE_XREF_CB(family, fam_husb_start, husband, individual)
@@ -74,6 +73,24 @@ void family_subscribe()
   gedcom_subscribe_to_element(ELT_FAM_SUBM, fam_subm_start, def_elt_end);
 }
 
+void UNREFALLFUNC(family)(struct family *fam)
+{
+  if (fam) {
+    UNREFALLFUNC(event)(fam->event);
+    unref_xref_value(fam->husband);
+    unref_xref_value(fam->wife);
+    UNREFALLFUNC(xref_list)(fam->children);
+    UNREFALLFUNC(xref_list)(fam->submitters);
+    UNREFALLFUNC(lds_event)(fam->lds_spouse_sealing);
+    UNREFALLFUNC(source_citation)(fam->citation);
+    UNREFALLFUNC(multimedia_link)(fam->mm_link);
+    UNREFALLFUNC(note_sub)(fam->note);
+    UNREFALLFUNC(user_ref_number)(fam->ref);
+    UNREFALLFUNC(change_date)(fam->change_date);
+    UNREFALLFUNC(user_data)(fam->extra);
+  }
+}
+
 void CLEANFUNC(family)(struct family* fam)
 {
   if (fam) {