[8408] parsetexi update

[gavinsmith0123]

Revision: 8408
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=8408
Author:   gavin
Date:     2018-10-25 15:40:19 -0400 (Thu, 25 Oct 2018)
Log Message:
-----------
parsetexi update

Modified Paths:
--------------
    trunk/tp/Texinfo/XS/parsetexi/api.c

Modified: trunk/tp/Texinfo/XS/parsetexi/api.c
===================================================================
--- trunk/tp/Texinfo/XS/parsetexi/api.c 2018-10-25 18:53:56 UTC (rev 8407)
+++ trunk/tp/Texinfo/XS/parsetexi/api.c 2018-10-25 19:40:19 UTC (rev 8408)
@@ -90,10 +90,10 @@
 void
 parse_string (char *string)
 {
-  ELEMENT *root;
-  root = new_element (ET_root_line);
+  if (Root)
+    destroy_element_and_children (Root);
   input_push_text (strdup (string), 0);
-  Root = parse_texi (root);
+  Root = parse_texi (new_element (ET_root_line));
 }
 
 /* Used for parse_texi_text.  STRING should be a UTF-8 buffer. */
@@ -100,10 +100,10 @@
 void
 parse_text (char *string)
 {
-  ELEMENT *root;
-  root = new_element (ET_text_root);
+  if (Root)
+    destroy_element_and_children (Root);
   input_push_text_with_line_nos (strdup (string), 1);
-  Root = parse_texi (root);
+  Root = parse_texi (new_element (ET_text_root));
 }