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

* don't apply cse on static variables being regable

Browse Source 
git-svn-id: trunk@23785 -
This commit is contained in:
florian 2013-03-10 20:29:52 +00:00
parent c2baf7b4c0
commit 2c7b34cda1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/optcse.pas
View File

@ -179,7 +179,9 @@ unit optcse;
current stack frame, those are in registers anyways if possible
}
(not(n.nodetype=loadn) or
not(tloadnode(n).symtableentry.typ in [paravarsym,localvarsym]) or
not(tloadnode(n).symtableentry.typ in [paravarsym,localvarsym,staticvarsym]) or
{ apply cse on non-regable static variables }
((tloadnode(n).symtableentry.typ=staticvarsym) and (tstaticvarsym(tloadnode(n).symtableentry).varregable=vr_none)) or
(node_complexity(n)>1)
) and