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

* improve cse on record/array accesses

Browse Source 
git-svn-id: trunk@33134 -
This commit is contained in:
florian 2016-02-28 18:44:45 +00:00
parent 8fe986ba11
commit 260ea81c82
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/optcse.pas
View File

@ -165,7 +165,10 @@ unit optcse;
(actualtargetnode(@n)^.flags*[nf_write,nf_modify,nf_address_taken]=[]) and
((((tstoreddef(n.resultdef).is_intregable or tstoreddef(n.resultdef).is_fpuregable or tstoreddef(n.resultdef).is_const_intregable) and
{ is_int/fpuregable allows arrays and records to be in registers, cse cannot handle this }
(not(n.resultdef.typ in [arraydef,recorddef]))) or is_dynamic_array(n.resultdef)) and
(not(n.resultdef.typ in [arraydef,recorddef]))) or
is_dynamic_array(n.resultdef) or
((n.resultdef.typ in [arraydef,recorddef]) and not(is_special_array(tstoreddef(n.resultdef))) and not(tstoreddef(n.resultdef).is_intregable) and not(tstoreddef(n.resultdef).is_fpuregable))
) and
{ same for voiddef }
not(is_void(n.resultdef)) and
{ adding tempref and callpara nodes itself is worthless but