* src/gram.c (gram_free): Rename back as...

(dummy): this.
(output_token_translations): Free `token_translations'.
* src/symtab.c (free_symtab): Free the tag field.

diff --git a/ChangeLog b/ChangeLog
index e1d6e882dd443dbabc8a532051cc47df130cc035..3f24b1ffafd7cc6644df215cedd31297e0fd305e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2001-09-22  Akim Demaille  <akim@epita.fr>
+
+       * src/gram.c (gram_free): Rename back as...
+       (dummy): this.
+       (output_token_translations): Free `token_translations'.
+       * src/symtab.c (free_symtab): Free the tag field.
+

 2001-09-22  Akim Demaille  <akim@epita.fr>
 
        Remove `translations' as it is always set to true.
 2001-09-22  Akim Demaille  <akim@epita.fr>
 
        Remove `translations' as it is always set to true.

diff --git a/src/gram.c b/src/gram.c
index 2cab907c50d6bdd94c024da8feee4705919d9a32..7016ab916352ee6b32e1e894b0dd12b3bf50d449 100644 (file)
--- a/src/gram.c
+++ b/src/gram.c
@@ -52,10 +52,10 @@ int pure_parser;
 
 int error_token_number;
 
 
 int error_token_number;
 

-/* Free all the memory associated to these pointers. */
+/* This is to avoid linker problems which occur on VMS when using GCC,
+   when the file in question contains data definitions only.  */

 
 void
 
 void

-gram_free (void)
+dummy (void)

 {
 {

-

 }
 }

diff --git a/src/output.c b/src/output.c
index b782cdff2af827d56888d4cad9775bda656a6f38..83476c5f43ac5877131c0d57b7ed3148d504eeeb 100644 (file)
--- a/src/output.c
+++ b/src/output.c
@@ -110,17 +110,17 @@ extern void berror PARAMS((const char *));
 
 static int nvectors;
 static int nentries;
 
 static int nvectors;
 static int nentries;

-static short **froms;
-static short **tos;
-static short *tally;
-static short *width;
-static short *actrow;
-static short *state_count;
-static short *order;
-static short *base;
-static short *pos;
-static short *table;
-static short *check;
+static short **froms = NULL;
+static short **tos = NULL;
+static short *tally = NULL;
+static short *width = NULL;
+static short *actrow = NULL;
+static short *state_count = NULL;
+static short *order = NULL;
+static short *base = NULL;
+static short *pos = NULL;
+static short *table = NULL;
+static short *check = NULL;

 static int lowzero;
 static int high;
 
 static int lowzero;
 static int high;
 


@@ -306,6 +306,8 @@ output_token_translations (void)
                              ntokens < 127 ? "char" : "short",
                              "yytranslate", token_translations,
                              0, 1, max_user_token_number + 1);
                              ntokens < 127 ? "char" : "short",
                              "yytranslate", token_translations,
                              0, 1, max_user_token_number + 1);

+
+  XFREE (token_translations);

 }
 
 
 }
 
 

diff --git a/src/reader.c b/src/reader.c
index 6de1222b6a9ce2fb2feeb02d19f70ab84e3571a8..0517abdc961fdedbd22bfd3899753dbb6ddab12e 100644 (file)
--- a/src/reader.c
+++ b/src/reader.c
@@ -1751,7 +1751,6 @@ packsymbols (void)
       user_toknums[bp->value] = bp->user_token_number;
       sprec[bp->value] = bp->prec;
       sassoc[bp->value] = bp->assoc;
       user_toknums[bp->value] = bp->user_token_number;
       sprec[bp->value] = bp->prec;
       sassoc[bp->value] = bp->assoc;

-

     }
 
   token_translations = XCALLOC (short, max_user_token_number + 1);
     }
 
   token_translations = XCALLOC (short, max_user_token_number + 1);

diff --git a/src/symtab.c b/src/symtab.c
index 84479da216b8c9b8e6cbad6a4e14897cc3e4d025..bf4a882fa8d66532a17e5f8d7a20c98b49b86498 100644 (file)
--- a/src/symtab.c
+++ b/src/symtab.c
@@ -143,6 +143,7 @@ free_symtab (void)
          if (bp->type_name)
            XFREE (bp->type_name);
 #endif
          if (bp->type_name)
            XFREE (bp->type_name);
 #endif

+         XFREE (bp->tag);

          XFREE (bp);
          bp = bptmp;
        }
          XFREE (bp);
          bp = bptmp;
        }