* reset current_object_option when reading other symtables than

    object declarations

compiler/pdecl.pas

@@ -329,6 +329,10 @@ unit pdecl;
          maxsize,maxalignment,startvarrecalign,startvarrecsize : longint;
          pt : ptree;
       begin
+         old_current_object_option:=current_object_option;
+         { all variables are public if not in a object declaration }
+         if not is_object then
+          current_object_option:=[sp_public];
          old_block_type:=block_type;
          block_type:=bt_type;
          is_gpc_name:=false;
@@ -627,7 +631,6 @@ unit pdecl;
              if not symdone then
                begin
                   { save object option, because we can turn of the sp_published }
-                  old_current_object_option:=current_object_option;
                   if (sp_published in current_object_option) and
                     (not((tt.def^.deftype=objectdef) and (pobjectdef(tt.def)^.is_class))) then
                    begin
@@ -704,6 +707,7 @@ unit pdecl;
               symtablestack^.dataalignment:=maxalignment;
            end;
          block_type:=old_block_type;
+         current_object_option:=old_current_object_option;
       end;
 
 
@@ -1213,7 +1217,11 @@ unit pdecl;
 end.
 {
   $Log$
-  Revision 1.186  2000-06-18 18:11:32  peter
+  Revision 1.187  2000-06-23 20:14:39  peter
+    * reset current_object_option when reading other symtables than
+      object declarations
+
+  Revision 1.186  2000/06/18 18:11:32  peter
     * C record packing fixed to also check first entry of the record
       if bigger than the recordalignment itself
     * variant record alignment uses alignment per variant and saves the