[6211] parsetexi update

[Gavin D. Smith]

Revision: 6211
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6211
Author:   gavin
Date:     2015-04-09 11:50:36 +0000 (Thu, 09 Apr 2015)
Log Message:
-----------
parsetexi update

Modified Paths:
--------------
    trunk/parsetexi/dump_perl.c
    trunk/parsetexi/end_line.c
    trunk/parsetexi/text.c

Modified: trunk/parsetexi/dump_perl.c
===================================================================
--- trunk/parsetexi/dump_perl.c 2015-04-09 10:41:39 UTC (rev 6210)
+++ trunk/parsetexi/dump_perl.c 2015-04-09 11:50:36 UTC (rev 6211)
@@ -650,6 +650,8 @@
      will exist by the time this is read. */
   if (tree_to_indices_dump.end > 0)
     printf ("%s", tree_to_indices_dump.text);
+
+  free (output.text);
 }
 
 /************************************************************/

Modified: trunk/parsetexi/end_line.c
===================================================================
--- trunk/parsetexi/end_line.c  2015-04-09 10:41:39 UTC (rev 6210)
+++ trunk/parsetexi/end_line.c  2015-04-09 11:50:36 UTC (rev 6211)
@@ -152,7 +152,6 @@
     ELEMENT *E = new_element (ET_NONE); \
     text_append (&E->text, string); \
     add_to_element_contents (line_args, E); \
-    free (string); \
 } while (0)
 
   ELEMENT *line_args;
@@ -227,6 +226,7 @@
 
         ADD_ARG(new);
         ADD_ARG(existing);
+        free (new); free (existing);
 
         /* TODO: Rememer the alias. */
         break;
@@ -266,9 +266,9 @@
         if (*line == ',')
           goto definfoenclose_invalid; /* Too many args. */
 
-        ADD_ARG(new_command);
-        ADD_ARG(start);
-        ADD_ARG(end);
+        ADD_ARG(new_command); free (new_command);
+        ADD_ARG(start); free (start);
+        ADD_ARG(end); free (end);
         break;
       definfoenclose_invalid:
         line_error ("bad argument to @definfoenclose");
@@ -359,7 +359,7 @@
         }
 
         add_index (name, cmd == CM_defcodeindex ? 1 : 0);
-        ADD_ARG (name);
+        ADD_ARG(name);
 
         break;
       defindex_invalid:
@@ -391,8 +391,8 @@
         if (!to)
           goto synindex_invalid;
 
-        ADD_ARG(from);
-        ADD_ARG(to);
+        ADD_ARG(from); free (from);
+        ADD_ARG(to); free (to);
 
         /* TODO: Rememer the synonym. */
         break;

Modified: trunk/parsetexi/text.c
===================================================================
--- trunk/parsetexi/text.c      2015-04-09 10:41:39 UTC (rev 6210)
+++ trunk/parsetexi/text.c      2015-04-09 11:50:36 UTC (rev 6211)
@@ -28,10 +28,12 @@
 {
   if (t->end + len > t->space)
     {
-      /* FIXME: Double it instead? */
       t->space = t->end + len;
       if (t->space < 10)
         t->space = 10;
+      /* This makes a huge difference under Valgrind, is not noticable
+         otherwise. */
+      t->space *= 2;
       t->text = realloc (t->text, t->space);
       if (!t->text)
         abort ();