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

+ introduces vo_volatile for variables, the node cse optimizer takes care of it

Browse Source 
git-svn-id: trunk@16851 -
This commit is contained in:
florian 2011-01-30 16:32:50 +00:00
parent 726339c443
commit 1fef7e4b6c
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/optcse.pas
View File

@ -57,12 +57,12 @@ unit optcse;
procinfo,
nbas,nld,ninl,ncal,ncnv,nadd,
pass_1,
symconst,symtype,symdef,
symconst,symtype,symdef,symsym,
defutil,
optbase;
const
cseinvariant : set of tnodetype = [loadn,addn,muln,subn,divn,slashn,modn,andn,orn,xorn,notn,vecn,
cseinvariant : set of tnodetype = [addn,muln,subn,divn,slashn,modn,andn,orn,xorn,notn,vecn,
derefn,equaln,unequaln,ltn,gtn,lten,gten,typeconvn,subscriptn,
inn,symdifn,shrn,shln,ordconstn,realconstn,unaryminusn,pointerconstn,stringconstn,setconstn,
isn,asn,starstarn,nothingn,temprefn,loadparentfpn {,callparan}];
@ -71,7 +71,11 @@ unit optcse;
begin
if (n.nodetype in cseinvariant) or
((n.nodetype=inlinen) and
(tinlinenode(n).inlinenumber in [in_assigned_x])
(tinlinenode(n).inlinenumber in [in_assigned_x])
) or
((n.nodetype=loadn) and
not((tloadnode(n).symtableentry.typ in [staticvarsym,localvarsym,paravarsym]) and
(vo_volatile in tabstractvarsym(tloadnode(n).symtableentry).varoptions))
) then
result:=fen_true
else

3
compiler/symconst.pas
View File

@ -422,7 +422,8 @@ type
{ Objective-C message selector parameter }
vo_is_msgsel,
{ first field of variant part of a record }
vo_is_first_field
vo_is_first_field,
vo_volatile
);
tvaroptions=set of tvaroption;