Răsfoiți Sursa

Fix the exception reported in Mantis #24072. This does not mean though that the bug is fixed, because the bug itself is related to the topic "partial specialization".

symtable.pas, sym_is_owned_by:
	* instead of checking in which symtables to not look, specify in which tables to look (namely object- and recordsymtables)

git-svn-id: trunk@24180 -
svenbarth 12 ani în urmă
părinte
comite
70886d1727
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      compiler/symtable.pas

+ 1 - 1
compiler/symtable.pas

@@ -2085,7 +2085,7 @@ implementation
       begin
         result:=assigned(childsym) and (childsym.owner=symtable);
         if not result and assigned(childsym) and
-           not(childsym.owner.symtabletype in [localsymtable,parasymtable]) then
+            (childsym.owner.symtabletype in [objectsymtable,recordsymtable]) then
           result:=sym_is_owned_by(tabstractrecorddef(childsym.owner.defowner).typesym,symtable);
       end;