X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=data1%2Fd1_handle.c;h=f990653e158a404de531371fe52e9d3911124322;hb=f280b4adca76b5b447dae9d6a01ff1f9067c08b9;hp=6f03aa52e03280833d62e6111ffec0a9596b10ba;hpb=02266b68e2e2c86d8a8467ee56721926b365d2d0;p=idzebra-moved-to-github.git

diff --git a/data1/d1_handle.c b/data1/d1_handle.c
index 6f03aa5..f990653 100644
--- a/data1/d1_handle.c
+++ b/data1/d1_handle.c
@@ -1,4 +1,4 @@
-/* $Id: d1_handle.c,v 1.2 2002-10-22 13:19:50 adam Exp $
+/* $Id: d1_handle.c,v 1.3 2002-12-16 20:27:18 adam Exp $
    Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
    Index Data Aps
 
@@ -87,6 +87,13 @@ void data1_destroy (data1_handle dh)
 {
     if (!dh)
 	return;
+    
+    /* *ostrich*
+       We need to destroy DFAs, in xp_element (xelm) definitions 
+       pop, 2002-12-13
+    */
+    data1_absyn_destroy(dh);
+
     wrbuf_free (dh->wrbuf, 1);
     if (dh->tab_path)
 	xfree (dh->tab_path);