paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 11:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed signature in enum class header (missed L-prefix)

Browse Source 
git-svn-id: branches/jvmbackend@18663 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:22:28 +00:00
parent 37aa2d8443
commit 1b1face692
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/agjasmin.pas
View File

@ -620,7 +620,7 @@ implementation
implemented interfaces) } implemented interfaces) }
if (obj.typ=objectdef) and if (obj.typ=objectdef) and
(oo_is_enum_class in tobjectdef(obj).objectoptions) then (oo_is_enum_class in tobjectdef(obj).objectoptions) then
AsmWriteln('.signature "Ljava/lang/Enum<'+obj.jvm_full_typename(true)+';>;"'); AsmWriteln('.signature "Ljava/lang/Enum<L'+obj.jvm_full_typename(true)+';>;"');
{ in case of nested class: relation to parent class } { in case of nested class: relation to parent class }
if obj.owner.symtabletype in [objectsymtable,recordsymtable] then if obj.owner.symtabletype in [objectsymtable,recordsymtable] then
AsmWriteln(InnerStructDef(obj)); AsmWriteln(InnerStructDef(obj));