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

* taddnode.first_addstring, avoid memory leak if

Browse Source 
left or right is an empty string.

git-svn-id: trunk@5550 -
This commit is contained in:
pierre 2006-12-07 13:03:51 +00:00
parent 501f66e0ca
commit b486f926ce
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nadd.pas
View File

@ -1596,6 +1596,7 @@ implementation
if (left.nodetype=stringconstn) and (tstringconstnode(left).len=0) then if (left.nodetype=stringconstn) and (tstringconstnode(left).len=0) then
begin begin
result:=right; result:=right;
left.free;
left:=nil; left:=nil;
right:=nil; right:=nil;
exit; exit;
@ -1604,6 +1605,7 @@ implementation
begin begin
result:=left; result:=left;
left:=nil; left:=nil;
right.free;
right:=nil; right:=nil;
exit; exit;
end; end;