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

* pd.owner.defowner -> pd.struct

Browse Source 
git-svn-id: branches/jvmbackend@18483 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:03:38 +00:00
parent 834ea45be8
commit 1b401399a4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symcreat.pas
View File

@ -230,9 +230,9 @@ implementation
sym: tsym;
fsym: tfieldvarsym;
begin
if not(pd.owner.defowner.typ in [recorddef,objectdef]) then
if not(pd.struct.typ in [recorddef,objectdef]) then
internalerror(2011032802);
struct:=tabstractrecorddef(pd.owner.defowner);
struct:=pd.struct;
{ anonymous record types must get an artificial name, so we can generate
a typecast at the scanner level }
if (struct.typ=recorddef) and
@ -269,9 +269,9 @@ implementation
sym: tsym;
fsym: tfieldvarsym;
begin
if not(pd.owner.defowner.typ in [recorddef,objectdef]) then
if not(pd.struct.typ in [recorddef,objectdef]) then
internalerror(2011032810);
struct:=tabstractrecorddef(pd.owner.defowner);
struct:=pd.struct;
{ anonymous record types must get an artificial name, so we can generate
a typecast at the scanner level }
if (struct.typ=recorddef) and