X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=recctrl%2Fregxread.c;h=e34f8963203d6ebeb31bd90b03670ea521f70749;hb=5b4dcfcb99600327a11b58de4fec33003dc4d816;hp=a2ba85d8facbe015a8fc688a335e30164b993903;hpb=5d61848786092f61fd25b7753f550460a4a619b6;p=idzebra-moved-to-github.git

diff --git a/recctrl/regxread.c b/recctrl/regxread.c
index a2ba85d..e34f896 100644
--- a/recctrl/regxread.c
+++ b/recctrl/regxread.c
@@ -4,7 +4,13 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: regxread.c,v $
- * Revision 1.20  1998-11-03 14:51:28  adam
+ * Revision 1.22  1998-11-03 16:07:13  adam
+ * Yet another fix.
+ *
+ * Revision 1.21  1998/11/03 15:43:39  adam
+ * Fixed bug introduced by previous commit.
+ *
+ * Revision 1.20  1998/11/03 14:51:28  adam
  * Changed code so that it creates as few data1 nodes as possible.
  *
  * Revision 1.19  1998/11/03 10:22:39  adam
@@ -796,7 +802,6 @@ static void tagDataRelease (struct lexSpec *spec,
 {
     data1_node *res;
     
-    assert (d1_stack[d1_level]);
     if ((res = d1_stack[d1_level]) &&
 	res->which == DATA1N_data && 
 	res->u.data.what == DATA1I_text)
@@ -859,7 +864,10 @@ static void variantBegin (struct lexSpec *spec,
 
 	parent->last_child = res;
 	if (d1_stack[*d1_level])
+	{
+	    tagDataRelease (spec, d1_stack, *d1_level);
 	    d1_stack[*d1_level]->next = res;
+	}
 	else
 	    parent->child = res;
 	d1_stack[*d1_level] = res;
@@ -1668,7 +1676,7 @@ static data1_node *lexRoot (struct lexSpec *spec, off_t offset,
     struct lexContext *lt = spec->context;
     data1_node *d1_stack[128];
     int d1_level = 0;
-    int ptr = offset;
+    int i, ptr = offset;
 
     spec->context_stack_top = 0;    
     while (lt)
@@ -1687,6 +1695,8 @@ static data1_node *lexRoot (struct lexSpec *spec, off_t offset,
     if (lt->beginActionList)
         execAction (spec, lt->beginActionList, d1_stack, &d1_level, 0, &ptr);
     lexNode (spec, d1_stack, &d1_level, &ptr);
+    for (i = d1_level; i; --i)
+	tagDataRelease (spec, d1_stack, i);
     if (lt->endActionList)
         execAction (spec, lt->endActionList, d1_stack, &d1_level, ptr, &ptr);
     return *d1_stack;