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

* correctly handle "class fields" in record definitions

Browse Source 
git-svn-id: branches/jvmbackend@18610 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:14:55 +00:00
parent 52b62732e2
commit 9a6ab55c97
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/agjasmin.pas
View File

@ -793,7 +793,7 @@ implementation
{ static field definition -> get original field definition for
visibility }
if (sym.typ=staticvarsym) and
(sym.owner.symtabletype=objectsymtable) then
(sym.owner.symtabletype in [objectsymtable,recordsymtable]) then
begin
vissym:=tabstractvarsym(
tabstractrecorddef(sym.owner.defowner).symtable.find(