paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:09:23 +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 for i:=1 to length(simplifyworklist) do
begin begin
adj:=igraph.adjlist[Tsuperregister(simplifyworklist[i])]; adj:=igraph.adjlist[Tsuperregister(simplifyworklist[i])];
if (adj<>nil) and (length(adj^)<min) then if adj=nil then
begin begin
min:=length(adj^); min:=0;
if min=0 then break; {We won't find smaller ones.}
break; {We won't find smaller ones.} end
p:=i; else
end; if length(adj^)<min then
begin
min:=length(adj^);
if min=0 then
break; {We won't find smaller ones.}
p:=i;
end;
end; end;
n:=Tsuperregister(simplifyworklist[p]); n:=Tsuperregister(simplifyworklist[p]);
delete(simplifyworklist,p,1); delete(simplifyworklist,p,1);
@ -2016,7 +2022,10 @@ end.
{ {
$Log$ $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 * removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter * vs_hidden parameter for funcret passed in parameter