* set the visibility of a newly create staticsymtable to vis_private

    (it's used for the implementation section, corrects the visibility
     of functions in the implementation of Pascal units for the JVM target)

git-svn-id: branches/jvmbackend@18433 -

compiler/symtable.pas

@@ -1479,6 +1479,7 @@ implementation
         inherited create(n,id);
         symtabletype:=staticsymtable;
         symtablelevel:=main_program_level;
+        currentvisibility:=vis_private;
       end;