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

* mark classes representing records as final

Browse Source 
* mark sealed classes as final
  * mark "final" fields as final

git-svn-id: branches/jvmbackend@18609 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:14:50 +00:00
parent 0f15664ffa
commit 52b62732e2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/agjasmin.pas
View File

@ -555,7 +555,8 @@ implementation
case obj.typ of case obj.typ of
recorddef: recorddef:
begin begin
AsmWrite('.class '); { can't inherit from records }
AsmWrite('.class final ');
if toplevelowner.symtabletype=globalsymtable then if toplevelowner.symtabletype=globalsymtable then
AsmWrite('public '); AsmWrite('public ');
AsmWriteln(obj.jvm_full_typename(true)); AsmWriteln(obj.jvm_full_typename(true));
@ -567,6 +568,8 @@ implementation
odt_javaclass: odt_javaclass:
begin begin
AsmWrite('.class '); AsmWrite('.class ');
if oo_is_sealed in tobjectdef(obj).objectoptions then
AsmWrite('final ');
if toplevelowner.symtabletype=globalsymtable then if toplevelowner.symtabletype=globalsymtable then
AsmWrite('public '); AsmWrite('public ');
AsmWriteln(obj.jvm_full_typename(true)); AsmWriteln(obj.jvm_full_typename(true));
@ -821,7 +824,7 @@ implementation
if (sym.typ=staticvarsym) or if (sym.typ=staticvarsym) or
(sp_static in sym.symoptions) then (sp_static in sym.symoptions) then
result:=result+'static '; result:=result+'static ';
if sym.varspez=vs_const then if sym.varspez in [vs_const,vs_final] then
result:=result+'final '; result:=result+'final ';
result:=result+jvmmangledbasename(sym,true); result:=result+jvmmangledbasename(sym,true);
end; end;