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

* honour -Oonopeephole

Browse Source 
git-svn-id: trunk@27106 -
This commit is contained in:
Jonas Maebe 2014-03-11 23:18:58 +00:00
parent 45e03d768e
commit 92fa75838e
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/aopt.pas
View File

@ -267,13 +267,16 @@ Unit aopt;
pass_1;
While Assigned(BlockStart) Do
Begin
if pass = 0 then
PrePeepHoleOpts;
{ Peephole optimizations }
PeepHoleOptPass1;
{ Only perform them twice in the first pass }
if pass = 0 then
PeepHoleOptPass1;
if (cs_opt_peephole in current_settings.optimizerswitches) then
begin
if pass = 0 then
PrePeepHoleOpts;
{ Peephole optimizations }
PeepHoleOptPass1;
{ Only perform them twice in the first pass }
if pass = 0 then
PeepHoleOptPass1;
end;
If (cs_opt_asmcse in current_settings.optimizerswitches) Then
Begin
// DFA:=TAOptDFACpu.Create(AsmL,BlockStart,BlockEnd,LabelInfo);
@ -283,9 +286,12 @@ Unit aopt;
{ CSE;}
End;
{ more peephole optimizations }
PeepHoleOptPass2;
{ if pass = last_pass then }
PostPeepHoleOpts;
if (cs_opt_peephole in current_settings.optimizerswitches) then
begin
PeepHoleOptPass2;
{ if pass = last_pass then }
PostPeepHoleOpts;
end;
{ free memory }
clear;
{ continue where we left off, BlockEnd is either the start of an }