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

* call inherited method from t*sym.buildderef (currently still empty,

Browse Source 
but won't stay that way)

git-svn-id: trunk@32149 -
This commit is contained in:
Jonas Maebe 2015-10-25 19:21:48 +00:00
parent 1127689dba
commit 4aa6c95ced
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symsym.pas
View File

@ -915,6 +915,7 @@ implementation
pd : tprocdef; pd : tprocdef;
d : tderef; d : tderef;
begin begin
inherited;
if not assigned(FProcdefDerefList) then if not assigned(FProcdefDerefList) then
FProcdefDerefList:=TFPList.Create FProcdefDerefList:=TFPList.Create
else else
@ -1368,6 +1369,7 @@ implementation
var var
pap : tpropaccesslisttypes; pap : tpropaccesslisttypes;
begin begin
inherited;
propdefderef.build(propdef); propdefderef.build(propdef);
indexdefderef.build(indexdef); indexdefderef.build(indexdef);
for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do for pap:=low(tpropaccesslisttypes) to high(tpropaccesslisttypes) do
@ -1597,6 +1599,7 @@ implementation
procedure tabstractvarsym.buildderef; procedure tabstractvarsym.buildderef;
begin begin
inherited;
vardefderef.build(vardef); vardefderef.build(vardef);
end; end;
@ -2428,6 +2431,7 @@ implementation
procedure tconstsym.buildderef; procedure tconstsym.buildderef;
begin begin
inherited;
if consttyp in [constord,constreal,constpointer,constset] then if consttyp in [constord,constreal,constpointer,constset] then
constdefderef.build(constdef); constdefderef.build(constdef);
end; end;
@ -2509,7 +2513,8 @@ implementation
procedure tenumsym.buildderef; procedure tenumsym.buildderef;
begin begin
definitionderef.build(definition); inherited;
definitionderef.build(definition);
end; end;
@ -2561,6 +2566,7 @@ implementation
procedure ttypesym.buildderef; procedure ttypesym.buildderef;
begin begin
inherited;
typedefderef.build(typedef); typedefderef.build(typedef);
end; end;