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

* memory leaks with hightree solved by adding a new disposetyp

Browse Source 
dt_leftrighthigh
This commit is contained in:
pierre 1999-01-27 12:57:22 +00:00
parent 3d18bdff95
commit 75c443fcf8
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/tree.pas
View File

@ -183,7 +183,7 @@ unit tree;
{$endif}
{ allows to determine which elementes are to be replaced }
tdisposetyp = (dt_nothing,dt_leftright,dt_left,
tdisposetyp = (dt_nothing,dt_leftright,dt_left,dt_leftrighthigh,
dt_mbleft,dt_typeconv,dt_inlinen,
dt_mbleft_and_method,dt_loop,dt_case,dt_with,dt_onn);
@ -406,6 +406,15 @@ unit tree;
if assigned(p^.right) then
hp^.right:=getcopy(p^.right);
end;
dt_leftrighthigh :
begin
if assigned(p^.left) then
hp^.left:=getcopy(p^.left);
if assigned(p^.right) then
hp^.right:=getcopy(p^.right);
if assigned(p^.hightree) then
hp^.left:=getcopy(p^.hightree);
end;
dt_nothing : ;
dt_left :
if assigned(p^.left) then
@ -494,6 +503,15 @@ unit tree;
if assigned(p^.right) then
disposetree(p^.right);
end;
dt_leftrighthigh :
begin
if assigned(p^.left) then
disposetree(p^.left);
if assigned(p^.right) then
disposetree(p^.right);
if assigned(p^.hightree) then
disposetree(p^.hightree);
end;
dt_case :
begin
if assigned(p^.left) then
@ -629,7 +647,7 @@ unit tree;
begin
p:=getnode;
p^.disposetyp:=dt_leftright;
p^.disposetyp:=dt_leftrighthigh;
p^.treetype:=callparan;
p^.left:=expr;
p^.right:=next;
@ -643,6 +661,7 @@ unit tree;
p^.resulttype:=nil;
p^.exact_match_found:=false;
p^.is_colon_para:=false;
p^.hightree:=nil;
set_file_line(expr,p);
gencallparanode:=p;
end;
@ -1666,7 +1685,11 @@ unit tree;
end.
{
$Log$
Revision 1.63 1999-01-27 00:14:00 florian
Revision 1.64 1999-01-27 12:57:22 pierre
* memory leaks with hightree solved by adding a new disposetyp
dt_leftrighthigh
Revision 1.63 1999/01/27 00:14:00 florian
* "procedure of object"-stuff fixed
Revision 1.62 1999/01/21 22:10:52 peter