Merge pull request ocaml#12953 from dustanddreams/yacc_shave

ocamlyacc: plug memory leaks
Fourchaux · Feb 1, 2024 · 6ce040f · 6ce040f
2 parents 74e30ec + 77b105e
commit 6ce040f
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/yacc/reader.c b/yacc/reader.c
@@ -347,6 +347,7 @@ static void process_open_curly_bracket(FILE *f) {
                         unterminated_string(s_lineno, s_line, s_cptr);
                 }
             }
+            FREE(s_line);
             FREE(buf);
             return;
         }
@@ -741,8 +742,10 @@ get_tag(void)
 
     for (i = 0; i < ntags; ++i)
     {
-        if (strcmp(cache, tag_table[i]) == 0)
+        if (strcmp(cache, tag_table[i]) == 0) {
+            FREE(t_line);
             return (tag_table[i]);
+        }
     }
 
     if (ntags >= tagmax)