Browse Source

* call inherited method from t*sym.buildderef (currently still empty,
but won't stay that way)

git-svn-id: trunk@32149 -

Jonas Maebe 9 years ago
parent
commit
4aa6c95ced
1 changed files with 7 additions and 1 deletions
  1. 7 1
      compiler/symsym.pas

+ 7 - 1
compiler/symsym.pas

@@ -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;