* prevent new definitions being added to a global unit symtable after compilation of the implementation part started

git-svn-id: trunk@29811 -

compiler/pmodules.pas

@@ -947,6 +947,8 @@ type
          { All units are read, now give them a number }
          current_module.updatemaps;
 
+         { further, changing the globalsymtable is not allowed anymore }
+         current_module.globalsymtable.sealed:=true;
          symtablestack.push(current_module.localsymtable);
 
          if not current_module.interface_only then

compiler/symbase.pas

@@ -100,6 +100,8 @@ interface
           tableoptions : tsymtableoptions;
           { level of symtable, used for nested procedures }
           symtablelevel : byte;
+          { do not allow to add new definitions, can be extended to symbols probably }
+          sealed : boolean;
           symtabletype  : TSymtabletype;
           constructor Create(const s:string);
           destructor  destroy;override;