* mark unit-level routines as "final", since they can't be overridden

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

compiler/agjasmin.pas

@@ -677,7 +677,8 @@ implementation
           result:=result+'static ';
         if is_javainterface(tdef(pd.owner.defowner)) then
           result:=result+'abstract ';
-        if po_finalmethod in pd.procoptions then
+        if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or
+           (po_finalmethod in pd.procoptions) then
           result:=result+'final ';
         result:=result+pd.jvmmangledbasename;
       end;