paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix a memory leak spotted by Blaise Thorn

Browse Source 
pdecsub.pas, parse_proc_head.consume_generic_type_parameter:
  * avoid a memory leak if there are no generic type parameters following

git-svn-id: trunk@23543 -
This commit is contained in:
svenbarth 2013-01-30 15:29:29 +00:00
parent 9315eba917
commit cca897cfd3
1 changed files with 26 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/pdecsub.pas
View File

@ -656,14 +656,16 @@ implementation
genname : tidstring; genname : tidstring;
s : shortstring; s : shortstring;
begin begin
result:=not assigned(astruct)and(m_delphi in current_settings.modeswitches); result:=not assigned(astruct)and
(m_delphi in current_settings.modeswitches)and
(token in [_LT,_LSHARPBRACKET]);
if result then if result then
begin begin
consume(token);
{ parse all parameters first so we can check whether we have { parse all parameters first so we can check whether we have
the correct generic def available } the correct generic def available }
genparalistdecl:=TFPHashList.Create; genparalistdecl:=TFPHashList.Create;
if try_to_consume(_LT) then
begin
{ start with 1, so Find can return Nil (= 0) } { start with 1, so Find can return Nil (= 0) }
idx:=1; idx:=1;
repeat repeat
@ -682,13 +684,6 @@ implementation
until not try_to_consume(_COMMA); until not try_to_consume(_COMMA);
if not try_to_consume(_GT) then if not try_to_consume(_GT) then
consume(_RSHARPBRACKET); consume(_RSHARPBRACKET);
end
else
begin
{ no generic }
srsym:=nil;
exit;
end;
s:=''; s:='';
str(genparalistdecl.count,s); str(genparalistdecl.count,s);
@ -706,7 +701,9 @@ implementation
srsym:=nil; srsym:=nil;
exit; exit;
end end
end; end
else
srsym:=nil;
end; end;
procedure consume_generic_interface; procedure consume_generic_interface;