mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-29 20:20:16 +02:00
* replaced "is" test with faster field value test
git-svn-id: trunk@40156 -
This commit is contained in:
parent
1a9eb77698
commit
011968e74b
@ -4594,7 +4594,7 @@ implementation
|
||||
((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 }
|
||||
((tloadnode(n).symtableentry is tabstractvarsym) and
|
||||
((tloadnode(n).symtableentry.typ in [localvarsym,paravarsym,staticvarsym]) and
|
||||
(tabstractvarsym(tloadnode(n).symtableentry).addr_taken))
|
||||
)
|
||||
) or
|
||||
|
Loading…
Reference in New Issue
Block a user