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

* patch by J. Gareth Moreton: minor refactor of reduced iterations of pass 1 of the assembler optimizer, resolves #37972

Browse Source 
git-svn-id: trunk@47163 -
This commit is contained in:
florian 2020-10-23 20:05:18 +00:00
parent 703941dde5
commit 8fa62752d4
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aoptobj.pas
View File

@ -2465,7 +2465,7 @@ Unit AoptObj;
procedure TAOptObj.PeepHoleOptPass1;
const
MaxPasses: array[1..4] of Cardinal = (1, 2, 8, 8);
MaxPasses: array[1..3] of Cardinal = (1, 2, 8);
var
p : tai;
stoploop, FirstInstruction, JumpOptsAvailable: boolean;
@ -2477,10 +2477,8 @@ Unit AoptObj;
PassCount := 0;
{ Determine the maximum number of passes allowed based on the compiler switches }
if (cs_opt_level4 in current_settings.optimizerswitches) then
if (cs_opt_level3 in current_settings.optimizerswitches) then
{ it should never take more than 8 passes, but the limit is finite to protect against faulty optimisations }
MaxCount := MaxPasses[4]
else if (cs_opt_level3 in current_settings.optimizerswitches) then
MaxCount := MaxPasses[3]
else if (cs_opt_level2 in current_settings.optimizerswitches) then
MaxCount := MaxPasses[2] { The original double run of Pass 1 }