* removed no longer used allow_only_static global variable

git-svn-id: trunk@6265 -

compiler/globals.pas

@@ -283,9 +283,6 @@ interface
          recompilations needed PM }
        simplify_ppu : boolean = true;
 
-       { should we allow non static members ? }
-       allow_only_static : boolean = false;
-
        Inside_asm_statement : boolean = false;
 
        global_unit_count : word = 0;

compiler/pexpr.pas

@@ -1885,7 +1885,6 @@ implementation
           end;
 
         var
-          store_static : boolean;
           protsym  : tpropertysym;
           p2,p3  : tnode;
           srsym  : tsym;
@@ -2125,11 +2124,8 @@ implementation
                          begin
                            if token=_ID then
                              begin
-                               store_static:=allow_only_static;
-                               allow_only_static:=false;
                                classh:=tobjectdef(p1.resultdef);
                                searchsym_in_class(classh,classh,pattern,srsym,srsymtable);
-                               allow_only_static:=store_static;
                                if assigned(srsym) then
                                  begin
                                     check_hints(srsym,srsym.symoptions);

compiler/psub.pas

@@ -1173,12 +1173,6 @@ implementation
          if procdef.parast.symtablelevel>maxnesting then
            Message(parser_e_too_much_lexlevel);
 
-         { static is also important for local procedures !! }
-         if (po_staticmethod in procdef.procoptions) then
-           allow_only_static:=true
-         else if (procdef.parast.symtablelevel=normal_function_level) then
-           allow_only_static:=false;
-
     {$ifdef state_tracking}
 {    aktstate:=Tstate_storage.create;}
     {$endif state_tracking}
@@ -1280,9 +1274,6 @@ implementation
 {    aktstate.destroy;}
     {$endif state_tracking}
 
-         { reset to normal non static function }
-         if (procdef.parast.symtablelevel=normal_function_level) then
-           allow_only_static:=false;
          current_procinfo:=oldprocinfo;
 
          { Restore old state }