paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:32:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also use the JVM-specific mangled name code for fields for Java interfaces

Browse Source 
(since they also can have static fields)

git-svn-id: branches/jvmbackend@18403 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:56:42 +00:00
parent 5f17c0e970
commit 2f4599cc5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symsym.pas
View File

@ -1218,7 +1218,7 @@ implementation
srsymtable : tsymtable; srsymtable : tsymtable;
begin begin
{$ifdef jvm} {$ifdef jvm}
if is_javaclass(tdef(owner.defowner)) then if is_java_class_or_interface(tdef(owner.defowner)) then
begin begin
if assigned(cachedmangledname) then if assigned(cachedmangledname) then
result:=cachedmangledname^ result:=cachedmangledname^