* don't write local constants of procedures, because their names may clash

    (the JVM doesn't have a concept of local constants, so they were made
     global)

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

compiler/agjasmin.pas

@@ -928,7 +928,9 @@ implementation
                end;
              constsym:
                begin
-                 WriteConstSym(tconstsym(sym));
+                 { multiple procedures can have constants with the same name }
+                 if tdef(sym.owner.defowner).typ<>procdef then
+                   WriteConstSym(tconstsym(sym));
                end;
              procsym:
                begin