paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-10 20:38:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* forgotten commit of loop strength reduction patch

Browse Source 
git-svn-id: trunk@12174 -
This commit is contained in:
florian 2008-11-19 11:03:20 +00:00
parent 108db3e1db
commit c8fae83c57
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/psub.pas
View File

@ -105,7 +105,7 @@ implementation
ncgutil,regvars,
optbase,
opttail,
optcse,
optcse,optloop,
optutils
{$if defined(arm) or defined(powerpc) or defined(powerpc64)}
,aasmcpu
@ -696,6 +696,7 @@ implementation
headertai : tai;
i : integer;
varsym : tabstractnormalvarsym;
RedoDFA : boolean;
begin
{ the initialization procedure can be empty, then we
don't need to generate anything. When it was an empty
@ -767,8 +768,7 @@ implementation
if (cs_opt_nodedfa in current_settings.optimizerswitches) and
{ creating dfa is not always possible }
((flags*[pi_has_assembler_block,pi_uses_exceptions,pi_is_assembler,
pi_needs_implicit_finally,pi_has_implicit_finally,pi_has_stackparameter,
pi_needs_stackframe])=[]) then
pi_needs_implicit_finally,pi_has_implicit_finally])=[]) then
begin
dfabuilder:=TDFABuilder.Create;
dfabuilder.createdfainfo(code);
@ -799,6 +799,15 @@ implementation
end;
end;
end;
include(flags,pi_dfaavailable);
end;
if (cs_opt_loopstrength in current_settings.optimizerswitches)
{ our induction variable strength reduction doesn't like
for loops with more than one entry }
and not(pi_has_goto in current_procinfo.flags) then
begin
RedoDFA:=OptimizeInductionVariables(code);
end;
if cs_opt_nodecse in current_settings.optimizerswitches then