X-Git-Url: https://git.dlugolecki.net.pl/?a=blobdiff_plain;f=gom%2Fgom_modify.c;h=11db4d775d5c5be0be9e49c0e995bb772b324846;hb=a423313d12cde06b773814a601a98151d1ec9015;hp=b876a9e5cfa2790ff825a629ceec8b915a6c7ccf;hpb=28297bd9b57fa7d8c3600d040cc08e5e73a62c27;p=gedcom-parse.git

diff --git a/gom/gom_modify.c b/gom/gom_modify.c
index b876a9e..11db4d7 100644
--- a/gom/gom_modify.c
+++ b/gom/gom_modify.c
@@ -79,6 +79,23 @@ char* gom_set_string_for_locale(char** data, const char* locale_str)
   return result;
 }
 
+void unref_xref_value(struct xref_value *xref)
+{
+  if (xref)
+    gedcom_unlink_xref(xref->type, xref->string);
+}
+
+void UNREFALLFUNC(xref_list)(struct xref_list* obj)
+{
+  if (obj) {
+    struct xref_list* runner;
+    for (runner = obj; runner; runner = runner->next) {
+      unref_xref_value(runner->xref);
+      UNREFALLFUNC(user_data)(runner->extra);
+    }
+  }
+}
+
 void CLEANFUNC(xref_list)(struct xref_list *obj)
 {
   if (obj) {