paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-30 00:22:40 +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; pass_1;
While Assigned(BlockStart) Do While Assigned(BlockStart) Do
Begin Begin
if pass = 0 then if (cs_opt_peephole in current_settings.optimizerswitches) then
PrePeepHoleOpts; begin
{ Peephole optimizations } if pass = 0 then
PeepHoleOptPass1; PrePeepHoleOpts;
{ Only perform them twice in the first pass } { Peephole optimizations }
if pass = 0 then PeepHoleOptPass1;
PeepHoleOptPass1; { Only perform them twice in the first pass }
if pass = 0 then
PeepHoleOptPass1;
end;
If (cs_opt_asmcse in current_settings.optimizerswitches) Then If (cs_opt_asmcse in current_settings.optimizerswitches) Then
Begin Begin
// DFA:=TAOptDFACpu.Create(AsmL,BlockStart,BlockEnd,LabelInfo); // DFA:=TAOptDFACpu.Create(AsmL,BlockStart,BlockEnd,LabelInfo);
@ -283,9 +286,12 @@ Unit aopt;
{ CSE;} { CSE;}
End; End;
{ more peephole optimizations } { more peephole optimizations }
PeepHoleOptPass2; if (cs_opt_peephole in current_settings.optimizerswitches) then
{ if pass = last_pass then } begin
PostPeepHoleOpts; PeepHoleOptPass2;
{ if pass = last_pass then }
PostPeepHoleOpts;
end;
{ free memory } { free memory }
clear; clear;
{ continue where we left off, BlockEnd is either the start of an } { continue where we left off, BlockEnd is either the start of an }