paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

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

git-svn-id: branches/jvmbackend@18524 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:07:07 +00:00
parent 845f50448c
commit a6e196bfd6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/agjasmin.pas
View File

@ -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