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

- Remove InitTree which was empty and obsolete

Browse Source
This commit is contained in:
peter 1998-08-10 09:57:19 +00:00
parent b8f4c8f6b8
commit 3a6d38ad23
1 changed files with 4 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
compiler/tree.pas
View File

@ -236,7 +236,6 @@ unit tree;
onn : (exceptsymtable : psymtable;excepttype : pobjectdef); onn : (exceptsymtable : psymtable;excepttype : pobjectdef);
end; end;
procedure init_tree;
function gennode(t : ttreetyp;l,r : ptree) : ptree; function gennode(t : ttreetyp;l,r : ptree) : ptree;
function genlabelnode(t : ttreetyp;nr : plabel) : ptree; function genlabelnode(t : ttreetyp;nr : plabel) : ptree;
function genloadnode(v : pvarsym;st : psymtable) : ptree; function genloadnode(v : pvarsym;st : psymtable) : ptree;
@ -279,9 +278,6 @@ unit tree;
procedure disposetree(p : ptree); procedure disposetree(p : ptree);
procedure putnode(p : ptree); procedure putnode(p : ptree);
function getnode : ptree; function getnode : ptree;
{***Obsolete
procedure clearnodes;
***}
procedure set_location(var destloc,sourceloc : tlocation); procedure set_location(var destloc,sourceloc : tlocation);
procedure swap_location(var destloc,sourceloc : tlocation); procedure swap_location(var destloc,sourceloc : tlocation);
procedure set_file_line(from,_to : ptree); procedure set_file_line(from,_to : ptree);
@ -313,38 +309,6 @@ unit tree;
{ $endif extdebug} { $endif extdebug}
verbose,files; verbose,files;
{****************************************************************************
this is a pool for the tree nodes to get more performance
****************************************************************************}
{***Obsolete
var
root : ptree;
***}
procedure init_tree;
begin
{***Obsolete
root:=nil;
***}
end;
{***Obsolete
procedure clearnodes;
var
hp : ptree;
begin
hp:=root;
while assigned(hp) do
begin
root:=hp^.left;
dispose(hp);
hp:=root;
end;
end;
***}
function getnode : ptree; function getnode : ptree;
@ -352,15 +316,6 @@ unit tree;
hp : ptree; hp : ptree;
begin begin
{***Obsolete
if root=nil then
new(hp)
else
begin
hp:=root;
root:=root^.left;
end;
***}
new(hp); new(hp);
{ makes error tracking easier } { makes error tracking easier }
@ -1607,7 +1562,10 @@ unit tree;
end. end.
{ {
$Log$ $Log$
Revision 1.25 1998-08-02 16:42:02 florian Revision 1.26 1998-08-10 09:57:19 peter
- Remove InitTree which was empty and obsolete
Revision 1.25 1998/08/02 16:42:02 florian
* on o : tobject do should also work now, the exceptsymtable shouldn't be * on o : tobject do should also work now, the exceptsymtable shouldn't be
disposed by dellexlevel disposed by dellexlevel