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

* move more node tree optimizations to tcgprocinfo.OptimizeNodeTree

Browse Source
This commit is contained in:
florian 2021-09-05 18:00:11 +02:00
parent b3bf183fd3
commit d2921dfb55
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -1274,6 +1274,12 @@ implementation
(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
procdef.isempty:=true; procdef.isempty:=true;
if cs_opt_nodecse in current_settings.optimizerswitches then
do_optcse(code);
if cs_opt_use_load_modify_store in current_settings.optimizerswitches then
do_optloadmodifystore(code);
end; end;
@ -1941,12 +1947,6 @@ 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);
if cs_opt_use_load_modify_store in current_settings.optimizerswitches then
do_optloadmodifystore(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