Преглед на файлове

WPO: handle classes defined in localsymtables

Can happen since the support for anonymous methods
Jonas Maebe преди 1 година
родител
ревизия
a512273976
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      compiler/optvirt.pas

+ 1 - 1
compiler/optvirt.pas

@@ -590,7 +590,7 @@ unit optvirt;
         objparentsymtab:=objdef.symtable;
         mainsymtab:=objparentsymtab.defowner.owner;
         classprefix:='';
-        while mainsymtab.symtabletype in [recordsymtable,objectsymtable] do
+        while mainsymtab.symtabletype in [recordsymtable,objectsymtable,localsymtable] do
           begin
             classprefix:=mainsymtab.name^+'.'+classprefix;
             mainsymtab:=mainsymtab.defowner.owner;