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

* do cse after the init/final code has been inserted, this might enable new cse opportunities

Browse Source 
git-svn-id: trunk@26623 -
This commit is contained in:
florian 2014-01-30 17:19:01 +00:00
parent c4a981fa8e
commit fc7dc9e54c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/psub.pas
View File

@ -1295,9 +1295,6 @@ implementation
{RedoDFA:=}OptimizeInductionVariables(code); {RedoDFA:=}OptimizeInductionVariables(code);
end; end;
if cs_opt_nodecse in current_settings.optimizerswitches then
do_optcse(code);
if (cs_opt_remove_emtpy_proc in current_settings.optimizerswitches) and if (cs_opt_remove_emtpy_proc in current_settings.optimizerswitches) and
(procdef.proctypeoption in [potype_operator,potype_procedure,potype_function]) and (procdef.proctypeoption in [potype_operator,potype_procedure,potype_function]) and
(code.nodetype=blockn) and (tblocknode(code).statements=nil) then (code.nodetype=blockn) and (tblocknode(code).statements=nil) then
@ -1306,6 +1303,9 @@ implementation
{ add implicit entry and exit code } { add implicit entry and exit code }
add_entry_exit_code; add_entry_exit_code;
if cs_opt_nodecse in current_settings.optimizerswitches then
do_optcse(code);
{ only do secondpass if there are no errors } { only do secondpass if there are no errors }
if (ErrorCount=0) then if (ErrorCount=0) then
begin begin