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

* ngenutil.tnodeutils.sym_maybe_initialize: don't use "is" operator, but corresponding is_* functions

Browse Source 
git-svn-id: trunk@36617 -
This commit is contained in:
svenbarth 2017-06-29 18:51:35 +00:00
parent 6006c6a8bd
commit a301bf75ea
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ngenutil.pas
View File

@ -328,11 +328,8 @@ implementation
which might contain record with management operators }
((tsym(p).typ = staticvarsym) and
(
(tabstractvarsym(p).vardef is trecorddef) or
(
(tabstractvarsym(p).vardef is tobjectdef) and
(tobjectdef(tabstractvarsym(p).vardef).objecttype = odt_object)
)
is_record(tabstractvarsym(p).vardef) or
is_object(tabstractvarsym(p).vardef)
)
)
) and