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

* fixed indentation in nonlocalvars()

Browse Source 
git-svn-id: trunk@34285 -
This commit is contained in:
Jonas Maebe 2016-08-12 13:35:45 +00:00
parent 94f90895a6
commit 8d1e8ea203
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncal.pas
View File

@ -4513,9 +4513,10 @@ implementation
{ statics can only be modified by functions in the same unit }
((tloadnode(n).symtable.symtabletype = staticsymtable) and
(tloadnode(n).symtable = TSymtable(arg))) or
{ if the addr of the symbol is taken somewhere, it can be also non-local }
(tabstractvarsym(tloadnode(n).symtableentry).addr_taken)
)) or
{ if the addr of the symbol is taken somewhere, it can be also non-local }
(tabstractvarsym(tloadnode(n).symtableentry).addr_taken)
)
) or
((n.nodetype = subscriptn) and
(tsubscriptnode(n).vs.owner.symtabletype = ObjectSymtable)) then
result := fen_norecurse_true;