Ver Fonte

* protected symbols are visible for defs declared in a local symtable as well

Sven/Sarah Barth há 3 anos atrás
pai
commit
3eac88eeaf
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/symtable.pas

+ 1 - 1
compiler/symtable.pas

@@ -3310,7 +3310,7 @@ implementation
                        ) or
                        (
                         assigned(contextobjdef) and
-                        (contextobjdef.owner.symtabletype in [globalsymtable,staticsymtable,ObjectSymtable,recordsymtable]) and
+                        (contextobjdef.owner.symtabletype in [globalsymtable,staticsymtable,ObjectSymtable,recordsymtable,localsymtable]) and
                         (contextobjdef.owner.iscurrentunit) and
                         def_is_related(contextobjdef,symownerdef)
                        ) or