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

* Bug fix in simplify

Browse Source
This commit is contained in:
daniel 2003-04-26 20:03:49 +00:00
parent 6c836488dd
commit b899ea5469
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/rgobj.pas
View File

@ -1523,13 +1523,19 @@ unit rgobj;
for i:=1 to length(simplifyworklist) do
begin
adj:=igraph.adjlist[Tsuperregister(simplifyworklist[i])];
if (adj<>nil) and (length(adj^)<min) then
if adj=nil then
begin
min:=length(adj^);
if min=0 then
break; {We won't find smaller ones.}
p:=i;
end;
min:=0;
break; {We won't find smaller ones.}
end
else
if length(adj^)<min then
begin
min:=length(adj^);
if min=0 then
break; {We won't find smaller ones.}
p:=i;
end;
end;
n:=Tsuperregister(simplifyworklist[p]);
delete(simplifyworklist,p,1);
@ -2016,7 +2022,10 @@ end.
{
$Log$
Revision 1.41 2003-04-25 20:59:35 peter
Revision 1.42 2003-04-26 20:03:49 daniel
* Bug fix in simplify
Revision 1.41 2003/04/25 20:59:35 peter
* removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter