paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:06:08 +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
begin
result:=right;
left.free;
left:=nil;
right:=nil;
exit;
@ -1604,6 +1605,7 @@ implementation
begin
result:=left;
left:=nil;
right.free;
right:=nil;
exit;
end;