paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +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; i,n,p,q:cardinal;
t : tsuperregister; t : tsuperregister;
searched:Tlinkedlistitem; searched:Tlinkedlistitem;
found : boolean;
label l1;
begin begin
if not freezeworklist.delete(v) then if not freezeworklist.delete(v) then
@ -1086,7 +1085,6 @@ unit rgobj;
with reginfo[u].movelist^ do with reginfo[u].movelist^ do
if header.count<8*(header.count-header.sorted_until) then if header.count<8*(header.count-header.sorted_until) then
sort_movelist(reginfo[u].movelist); sort_movelist(reginfo[u].movelist);
if assigned(reginfo[v].movelist) then if assigned(reginfo[v].movelist) then
begin begin
for n:=0 to reginfo[v].movelist^.header.count-1 do for n:=0 to reginfo[v].movelist^.header.count-1 do
@ -1108,12 +1106,15 @@ unit rgobj;
if searched<>data[i] then if searched<>data[i] then
begin begin
{Linear search the unsorted part of the list.} {Linear search the unsorted part of the list.}
found:=false;
for i:=header.sorted_until+1 to header.count-1 do for i:=header.sorted_until+1 to header.count-1 do
if searched=data[i] then if searched=data[i] then
goto l1; begin
{Not found -> add} found:=true;
add_to_movelist(u,searched); break;
l1: end;
if not found then
add_to_movelist(u,searched);
end; end;
end; end;
end; end;