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

* fixed a few bugs in yesterday's optimization

Browse Source 
git-svn-id: trunk@1322 -
This commit is contained in:
Jonas Maebe 2005-10-08 11:37:18 +00:00
parent f916ea20b3
commit cd93450fd6
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/powerpc/aoptcpu.pas
View File

@ -77,14 +77,22 @@ Implementation
taicpu(p).clearop(2);
taicpu(p).clearop(3);
taicpu(p).clearop(4);
taicpu(p).ops := 2;
asml.remove(next1);
next1.free;
end
else
// some of the cases with l1>32 or l2>32 can be
// optimized, but others can't (like 19,17 and 25,23)
if (l1 < 32) and
(l2 < 32) then
begin
taicpu(p).oper[3]^.val := max(taicpu(p).oper[3]^.val,taicpu(next1).oper[3]^.val);
taicpu(p).oper[4]^.val := min(taicpu(p).oper[4]^.val,taicpu(next1).oper[4]^.val);
asml.remove(next1);
next1.free;
result := true;
end;
asml.remove(next1);
next1.free;
end;
end;
end;