paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: don't create a parasymtable for property if property has no parameters

Browse Source 
git-svn-id: trunk@19550 -
This commit is contained in:
paul 2011-10-28 01:38:55 +00:00
parent aaabc35058
commit 62b4ef3d1a
3 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

@ -401,6 +401,7 @@ implementation
not (m_delphi in current_settings.modeswitches) then
Message(parser_e_cant_publish_that_property);
{ create a list of the parameters }
p.parast:=tparasymtable.create(nil,0);
symtablestack.push(p.parast);
sc:=TFPObjectList.create(false);
repeat
@ -513,10 +514,9 @@ implementation
p.index:=tpropertysym(overridden).index;
p.default:=tpropertysym(overridden).default;
p.propoptions:=tpropertysym(overridden).propoptions;
p.parast.free;
p.parast:=tpropertysym(overridden).parast.getcopy;
if ppo_hasparameters in p.propoptions then
begin
p.parast:=tpropertysym(overridden).parast.getcopy;
add_parameters(p,readprocdef,writeprocdef);
paranr:=p.parast.SymList.Count;
end;

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum}
const
CurrentPPUVersion = 138;
CurrentPPUVersion = 139;
{ buffer sizes }
maxentrysize = 1024;

18
compiler/symsym.pas
View File

@ -957,7 +957,7 @@ implementation
default:=0;
propdef:=nil;
indexdef:=nil;
parast:=tparasymtable.create(nil,0);
parast:=nil;
for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do
propaccesslist[pap]:=tpropaccesslist.create;
end;
@ -976,8 +976,11 @@ implementation
ppufile.getderef(indexdefderef);
for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do
propaccesslist[pap]:=ppufile.getpropaccesslist;
parast:=tparasymtable.create(nil,0);
tparasymtable(parast).ppuload(ppufile);
if ppo_hasparameters in propoptions then
begin
parast:=tparasymtable.create(nil,0);
tparasymtable(parast).ppuload(ppufile);
end;
end;
@ -1001,7 +1004,8 @@ implementation
indexdefderef.build(indexdef);
for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do
propaccesslist[pap].buildderef;
tparasymtable(parast).buildderef;
if assigned(parast) then
tparasymtable(parast).buildderef;
end;
@ -1014,7 +1018,8 @@ implementation
propdef:=tdef(propdefderef.resolve);
for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do
propaccesslist[pap].resolve;
tparasymtable(parast).deref;
if assigned(parast) then
tparasymtable(parast).deref;
end;
@ -1038,7 +1043,8 @@ implementation
for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do
ppufile.putpropaccesslist(propaccesslist[pap]);
ppufile.writeentry(ibpropertysym);
tparasymtable(parast).ppuwrite(ppufile);
if ppo_hasparameters in propoptions then
tparasymtable(parast).ppuwrite(ppufile);
end;