BUG: Fixed memory-leaks in fortran parser.

1 files changed, 11 insertions, 4 deletions

diff --git a/Source/cmDependsFortranParser.y b/Source/cmDependsFortranParser.y
index 8e6456d..13c5f32 100644
--- a/Source/cmDependsFortranParser.y
+++ b/Source/cmDependsFortranParser.y
@@ -163,6 +163,9 @@ code: /* empty */ | code stmt;
 stmt: keyword_stmt | assignment_stmt;
 
 assignment_stmt: WORD ASSIGNMENT_OP other EOSTMT    /* Ignore */
+    {
+    free($1);
+    }
 
 keyword_stmt:
   WORD EOSTMT
@@ -182,21 +185,18 @@ keyword_stmt:
       cmDependsFortranParser* parser =
         cmDependsFortran_yyget_extra(yyscanner);
       cmDependsFortranParser_RuleUse(parser, $2);
-      free($2);
       }
     else if (cmDependsFortranParserIsKeyword($1, "module"))
       {
       cmDependsFortranParser* parser =
         cmDependsFortran_yyget_extra(yyscanner);
       cmDependsFortranParser_RuleModule(parser, $2);
-      free($2);
       }
     else if (cmDependsFortranParserIsKeyword($1, "interface"))
       {
       cmDependsFortranParser* parser =
         cmDependsFortran_yyget_extra(yyscanner);
       cmDependsFortranParser_SetInInterface(parser, true);
-      free($2);
       }
     else if (cmDependsFortranParserIsKeyword($2, "interface") &&
              cmDependsFortranParserIsKeyword($1, "end"))
@@ -204,11 +204,15 @@ keyword_stmt:
       cmDependsFortranParser* parser =
         cmDependsFortran_yyget_extra(yyscanner);
       cmDependsFortranParser_SetInInterface(parser, false);
-      free($2);
       }
     free($1);
+    free($2);
     }
 | WORD STRING other EOSTMT /* Ignore */
+    {
+    free($1);
+    free($2);
+    }
 | include STRING other EOSTMT
     {
     cmDependsFortranParser* parser =
@@ -261,6 +265,9 @@ keyword_stmt:
     cmDependsFortranParser_RuleEndif(parser);
     }
 | WORD GARBAGE other EOSTMT             /* Ignore */
+    {
+    free($1);
+    }
 | GARBAGE other EOSTMT
 | EOSTMT
 | error