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

* extended nodes which return true from is_const

Browse Source 
git-svn-id: trunk@31472 -
This commit is contained in:
florian 2015-08-31 20:03:52 +00:00
parent f00a55ae08
commit 27828d41e7
1 changed files with 3 additions and 1 deletions

4
compiler/nutils.pas
View File

@ -1354,7 +1354,9 @@ implementation
function is_const(node : tnode) : boolean;
begin
result:=(node.nodetype=temprefn) and (ti_const in ttemprefnode(node).tempinfo^.flags)
result:=is_constnode(node) or
((node.nodetype=temprefn) and (ti_const in ttemprefnode(node).tempinfo^.flags)) or
((node.nodetype=loadn) and (tloadnode(node).symtableentry.typ=paravarsym) and (tparavarsym(tloadnode(node).symtableentry).varspez in [vs_const,vs_constref]));
end;