kolan
/
CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

BUG: Fixed memory-leaks in fortran parser.

This commit is contained in:
Brad King 2007-12-17 17:55:21 -05:00
parent ca5c5fc770
commit 60149b33c1
2 changed files with 55 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
Source/cmDependsFortranParser.cxx
View File

@ -611,11 +611,11 @@ static const yytype_int8 yyrhs[] =
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */ /* YYRLINE[YYN] -- source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] = static const yytype_uint16 yyrline[] =
{ {
0, 161, 161, 161, 163, 163, 165, 168, 178, 211, 0, 161, 161, 161, 163, 163, 165, 171, 181, 211,
212, 219, 225, 231, 237, 243, 248, 253, 258, 263, 216, 223, 229, 235, 241, 247, 252, 257, 262, 267,
264, 265, 266, 271, 271, 271, 272, 272, 273, 273, 271, 272, 273, 278, 278, 278, 279, 279, 280, 280,
274, 274, 275, 275, 276, 276, 277, 277, 278, 278, 281, 281, 282, 282, 283, 283, 284, 284, 285, 285,
279, 279, 280, 280, 283, 284, 285, 286, 287 286, 286, 287, 287, 290, 291, 292, 293, 294
}; };
#endif #endif
@ -1580,8 +1580,15 @@ yyreduce:
YY_REDUCE_PRINT (yyn); YY_REDUCE_PRINT (yyn);
switch (yyn) switch (yyn)
{ {
case 7: case 6:
#line 169 "cmDependsFortranParser.y" #line 166 "cmDependsFortranParser.y"
{
free((yyvsp[(1) - (4)].string));
}
break;
case 7:
#line 172 "cmDependsFortranParser.y"
{ {
if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (2)].string), "interface")) if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (2)].string), "interface"))
{ {
@ -1594,28 +1601,25 @@ yyreduce:
break; break;
case 8: case 8:
#line 179 "cmDependsFortranParser.y" #line 182 "cmDependsFortranParser.y"
{ {
if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "use")) if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "use"))
{ {
cmDependsFortranParser* parser = cmDependsFortranParser* parser =
cmDependsFortran_yyget_extra(yyscanner); cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleUse(parser, (yyvsp[(2) - (4)].string)); cmDependsFortranParser_RuleUse(parser, (yyvsp[(2) - (4)].string));
free((yyvsp[(2) - (4)].string));
} }
else if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "module")) else if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "module"))
{ {
cmDependsFortranParser* parser = cmDependsFortranParser* parser =
cmDependsFortran_yyget_extra(yyscanner); cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleModule(parser, (yyvsp[(2) - (4)].string)); cmDependsFortranParser_RuleModule(parser, (yyvsp[(2) - (4)].string));
free((yyvsp[(2) - (4)].string));
} }
else if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "interface")) else if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "interface"))
{ {
cmDependsFortranParser* parser = cmDependsFortranParser* parser =
cmDependsFortran_yyget_extra(yyscanner); cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_SetInInterface(parser, true); cmDependsFortranParser_SetInInterface(parser, true);
free((yyvsp[(2) - (4)].string));
} }
else if (cmDependsFortranParserIsKeyword((yyvsp[(2) - (4)].string), "interface") && else if (cmDependsFortranParserIsKeyword((yyvsp[(2) - (4)].string), "interface") &&
cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "end")) cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "end"))
@ -1623,14 +1627,22 @@ yyreduce:
cmDependsFortranParser* parser = cmDependsFortranParser* parser =
cmDependsFortran_yyget_extra(yyscanner); cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_SetInInterface(parser, false); cmDependsFortranParser_SetInInterface(parser, false);
free((yyvsp[(2) - (4)].string));
} }
free((yyvsp[(1) - (4)].string)); free((yyvsp[(1) - (4)].string));
free((yyvsp[(2) - (4)].string));
}
break;
case 9:
#line 212 "cmDependsFortranParser.y"
{
free((yyvsp[(1) - (4)].string));
free((yyvsp[(2) - (4)].string));
} }
break; break;
case 10: case 10:
#line 213 "cmDependsFortranParser.y" #line 217 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortranParser* parser =
cmDependsFortran_yyget_extra(yyscanner); cmDependsFortran_yyget_extra(yyscanner);
@ -1640,7 +1652,7 @@ yyreduce:
break; break;
case 11: case 11:
#line 220 "cmDependsFortranParser.y" #line 224 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleDefine(parser, (yyvsp[(2) - (4)].string)); cmDependsFortranParser_RuleDefine(parser, (yyvsp[(2) - (4)].string));
@ -1649,7 +1661,7 @@ yyreduce:
break; break;
case 12: case 12:
#line 226 "cmDependsFortranParser.y" #line 230 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleUndef(parser, (yyvsp[(2) - (4)].string)); cmDependsFortranParser_RuleUndef(parser, (yyvsp[(2) - (4)].string));
@ -1658,7 +1670,7 @@ yyreduce:
break; break;
case 13: case 13:
#line 232 "cmDependsFortranParser.y" #line 236 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleIfdef(parser, (yyvsp[(2) - (4)].string)); cmDependsFortranParser_RuleIfdef(parser, (yyvsp[(2) - (4)].string));
@ -1667,7 +1679,7 @@ yyreduce:
break; break;
case 14: case 14:
#line 238 "cmDependsFortranParser.y" #line 242 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleIfndef(parser, (yyvsp[(2) - (4)].string)); cmDependsFortranParser_RuleIfndef(parser, (yyvsp[(2) - (4)].string));
@ -1676,7 +1688,7 @@ yyreduce:
break; break;
case 15: case 15:
#line 244 "cmDependsFortranParser.y" #line 248 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleIf(parser); cmDependsFortranParser_RuleIf(parser);
@ -1684,7 +1696,7 @@ yyreduce:
break; break;
case 16: case 16:
#line 249 "cmDependsFortranParser.y" #line 253 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleElif(parser); cmDependsFortranParser_RuleElif(parser);
@ -1692,7 +1704,7 @@ yyreduce:
break; break;
case 17: case 17:
#line 254 "cmDependsFortranParser.y" #line 258 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleElse(parser); cmDependsFortranParser_RuleElse(parser);
@ -1700,26 +1712,33 @@ yyreduce:
break; break;
case 18: case 18:
#line 259 "cmDependsFortranParser.y" #line 263 "cmDependsFortranParser.y"
{ {
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner); cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleEndif(parser); cmDependsFortranParser_RuleEndif(parser);
} }
break; break;
case 19:
#line 268 "cmDependsFortranParser.y"
{
free((yyvsp[(1) - (4)].string));
}
break;
case 44: case 44:
#line 283 "cmDependsFortranParser.y" #line 290 "cmDependsFortranParser.y"
{ free ((yyvsp[(1) - (1)].string)); } { free ((yyvsp[(1) - (1)].string)); }
break; break;
case 45: case 45:
#line 284 "cmDependsFortranParser.y" #line 291 "cmDependsFortranParser.y"
{ free ((yyvsp[(1) - (1)].string)); } { free ((yyvsp[(1) - (1)].string)); }
break; break;
/* Line 1267 of yacc.c. */ /* Line 1267 of yacc.c. */
#line 1723 "cmDependsFortranParser.cxx" #line 1742 "cmDependsFortranParser.cxx"
default: break; default: break;
} }
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
@ -1935,7 +1954,7 @@ yyreturn:
} }
#line 290 "cmDependsFortranParser.y" #line 297 "cmDependsFortranParser.y"
/* End of grammar */ /* End of grammar */

15
Source/cmDependsFortranParser.y
View File

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