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

* pd.owner.defowner -> pd.struct

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

16
compiler/ngenutil.pas
View File

@ -258,19 +258,19 @@ implementation
static fields must be initialsed in the class constructor
itself -> add them here }
block:=internalstatements(stat);
if assigned(tabstractrecorddef(pd.owner.defowner).tcinitcode) then
if assigned(pd.struct.tcinitcode) then
begin
addstatement(stat,tabstractrecorddef(pd.owner.defowner).tcinitcode);
tabstractrecorddef(pd.owner.defowner).tcinitcode:=nil;
addstatement(stat,pd.struct.tcinitcode);
pd.struct.tcinitcode:=nil;
end;
psym:=tsym(tabstractrecorddef(pd.owner.defowner).symtable.find('FPC_INIT_TYPED_CONSTS_HELPER'));
psym:=tsym(pd.struct.symtable.find('FPC_INIT_TYPED_CONSTS_HELPER'));
if not assigned(psym) or
(psym.typ<>procsym) or
(tprocsym(psym).procdeflist.count<>1) then
internalerror(2011040301);
tcinitproc:=tprocdef(tprocsym(psym).procdeflist[0]);
addstatement(stat,ccallnode.create(nil,tprocsym(psym),
tabstractrecorddef(pd.owner.defowner).symtable,nil,[]));
pd.struct.symtable,nil,[]));
addstatement(stat,result);
result:=block
end;
@ -288,11 +288,11 @@ implementation
else case pd.synthetickind of
tsk_tcinit:
begin
if assigned(tabstractrecorddef(pd.owner.defowner).tcinitcode) then
if assigned(pd.struct.tcinitcode) then
begin
block:=internalstatements(stat);
addstatement(stat,tabstractrecorddef(pd.owner.defowner).tcinitcode);
tabstractrecorddef(pd.owner.defowner).tcinitcode:=nil;
addstatement(stat,pd.struct.tcinitcode);
pd.struct.tcinitcode:=nil;
addstatement(stat,result);
result:=block
end