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

+ for loop optimizations can be controller by a switch (-Oo(no)forloop)

Browse Source
This commit is contained in:
florian 2021-09-12 10:54:09 +02:00
parent c30ce7108e
commit 1e072aef31
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/globtype.pas
View File

@ -350,7 +350,8 @@ interface
cs_opt_forcenostackframe, cs_opt_forcenostackframe,
cs_opt_use_load_modify_store, cs_opt_use_load_modify_store,
cs_opt_unused_para, cs_opt_unused_para,
cs_opt_consts cs_opt_consts,
cs_opt_forloop
); );
toptimizerswitches = set of toptimizerswitch; toptimizerswitches = set of toptimizerswitch;
@ -415,7 +416,7 @@ interface
'ORDERFIELDS','FASTMATH','DEADVALUES','REMOVEEMPTYPROCS', 'ORDERFIELDS','FASTMATH','DEADVALUES','REMOVEEMPTYPROCS',
'CONSTPROP', 'CONSTPROP',
'DEADSTORE','FORCENOSTACKFRAME','USELOADMODIFYSTORE', 'DEADSTORE','FORCENOSTACKFRAME','USELOADMODIFYSTORE',
'UNUSEDPARA','CONSTS' 'UNUSEDPARA','CONSTS','FORLOOP'
); );
WPOptimizerSwitchStr : array [twpoptimizerswitch] of string[14] = ( WPOptimizerSwitchStr : array [twpoptimizerswitch] of string[14] = (
'DEVIRTCALLS','OPTVMTS','SYMBOLLIVENESS' 'DEVIRTCALLS','OPTVMTS','SYMBOLLIVENESS'
@ -441,7 +442,9 @@ interface
{ switches being applied to all CPUs at the given level } { switches being applied to all CPUs at the given level }
genericlevel1optimizerswitches = [cs_opt_level1,cs_opt_peephole]; genericlevel1optimizerswitches = [cs_opt_level1,cs_opt_peephole];
genericlevel2optimizerswitches = [cs_opt_level2,cs_opt_remove_empty_proc,cs_opt_unused_para]; genericlevel2optimizerswitches = [cs_opt_level2,cs_opt_remove_empty_proc,cs_opt_unused_para];
genericlevel3optimizerswitches = [cs_opt_level3,cs_opt_constant_propagate,cs_opt_nodedfa{$ifndef llvm},cs_opt_use_load_modify_store{$endif},cs_opt_loopunroll]; genericlevel3optimizerswitches = [cs_opt_level3,cs_opt_constant_propagate,cs_opt_nodedfa
{$ifndef llvm},cs_opt_use_load_modify_store{$endif},
cs_opt_loopunroll,cs_opt_forloop];
genericlevel4optimizerswitches = [cs_opt_level4,cs_opt_reorder_fields,cs_opt_dead_values,cs_opt_fastmath]; genericlevel4optimizerswitches = [cs_opt_level4,cs_opt_reorder_fields,cs_opt_dead_values,cs_opt_fastmath];
{ whole program optimizations whose information generation requires { whole program optimizations whose information generation requires

3
compiler/psub.pas
View File

@ -1223,7 +1223,8 @@ implementation
include(flags,pi_dfaavailable); include(flags,pi_dfaavailable);
end; end;
RedoDFA:=OptimizeForLoop(code); if cs_opt_forloop in current_settings.optimizerswitches then
RedoDFA:=OptimizeForLoop(code);
RedoDFA:=ConvertForLoops(code) or RedoDFA; RedoDFA:=ConvertForLoops(code) or RedoDFA;

3
compiler/utils/ppuutils/ppudump.pp
View File

@ -2446,7 +2446,8 @@ const
'cs_opt_forcenostackframe', 'cs_opt_forcenostackframe',
'cs_opt_use_load_modify_store', 'cs_opt_use_load_modify_store',
'cs_opt_unused_para', 'cs_opt_unused_para',
'cs_opt_consts' 'cs_opt_consts',
'cs_opt_forloop'
); );
var var
globalswitch : tglobalswitch; globalswitch : tglobalswitch;