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

* remove goto, that prevents optimizations

Browse Source 
git-svn-id: trunk@10083 -
This commit is contained in:
peter 2008-01-28 18:13:32 +00:00
parent 74f21d7bc3
commit 6744b747b8
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/rgobj.pas
View File

@ -1052,8 +1052,7 @@ unit rgobj;
i,n,p,q:cardinal;
t : tsuperregister;
searched:Tlinkedlistitem;
label l1;
found : boolean;
begin
if not freezeworklist.delete(v) then
@ -1086,7 +1085,6 @@ unit rgobj;
with reginfo[u].movelist^ do
if header.count<8*(header.count-header.sorted_until) then
sort_movelist(reginfo[u].movelist);
if assigned(reginfo[v].movelist) then
begin
for n:=0 to reginfo[v].movelist^.header.count-1 do
@ -1108,12 +1106,15 @@ unit rgobj;
if searched<>data[i] then
begin
{Linear search the unsorted part of the list.}
found:=false;
for i:=header.sorted_until+1 to header.count-1 do
if searched=data[i] then
goto l1;
{Not found -> add}
add_to_movelist(u,searched);
l1:
begin
found:=true;
break;
end;
if not found then
add_to_movelist(u,searched);
end;
end;
end;