* split tvisibility from tsymoptions

  * replace current_object_option with symtable.currentvisibility


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12048 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 0 deletions

diff --git a/compiler/symbase.pas b/compiler/symbase.pas
index 0c093e07ac..c6719e13d8 100644
--- a/compiler/symbase.pas
+++ b/compiler/symbase.pas
@@ -95,6 +95,7 @@ interface
           defowner  : TDefEntry; { for records and objects }
           moduleid  : longint;
           refcount  : smallint;
+          currentvisibility : tvisibility;
           { level of symtable, used for nested procedures }
           symtablelevel : byte;
           symtabletype  : TSymtabletype;
@@ -220,6 +221,7 @@ implementation
          DefList:=TFPObjectList.Create(true);
          SymList:=TFPHashObjectList.Create(true);
          refcount:=1;
+         currentvisibility:=vis_public;
       end;