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

* fixed mem leak with arrayconstrutor

Browse Source
This commit is contained in:
peter 1998-10-12 10:05:41 +00:00
parent e05ec93224
commit e3dedeb4b2
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pexpr.pas
View File

@ -1040,12 +1040,12 @@ unit pexpr;
{ insert at the end of the tree, to get the correct order }
if not assigned(buildp) then
begin
buildp:=gensinglenode(arrayconstructn,p1);
buildp:=gennode(arrayconstructn,p1,nil);
lastp:=buildp;
end
else
begin
lastp^.right:=gensinglenode(arrayconstructn,p1);
lastp^.right:=gennode(arrayconstructn,p1,nil);
lastp:=lastp^.right;
end;
{ there could be more elements }
@ -1843,7 +1843,10 @@ unit pexpr;
end.
{
$Log$
Revision 1.61 1998-10-05 13:57:15 peter
Revision 1.62 1998-10-12 10:05:41 peter
* fixed mem leak with arrayconstrutor
Revision 1.61 1998/10/05 13:57:15 peter
* crash preventions
Revision 1.60 1998/10/05 12:32:46 peter