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

* also write definitions for abstract methods

Browse Source 
* write "abstract" modifier for abstract classes

git-svn-id: branches/jvmbackend@18634 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:17:07 +00:00
parent 390bf35b52
commit 92fbbcff88
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/agjasmin.pas
View File

@ -570,6 +570,8 @@ implementation
AsmWrite('.class ');
if oo_is_sealed in tobjectdef(obj).objectoptions then
AsmWrite('final ');
if oo_is_abstract in tobjectdef(obj).objectoptions then
AsmWrite('abstract ');
if toplevelowner.symtabletype=globalsymtable then
AsmWrite('public ');
if (oo_is_enum_class in tobjectdef(obj).objectoptions) then
@ -714,7 +716,8 @@ implementation
if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or
(po_classmethod in pd.procoptions) then
result:=result+'static ';
if is_javainterface(tdef(pd.owner.defowner)) then
if (po_abstractmethod in pd.procoptions) or
is_javainterface(tdef(pd.owner.defowner)) then
result:=result+'abstract ';
if (pd.procsym.owner.symtabletype in [globalsymtable,staticsymtable,localsymtable]) or
(po_finalmethod in pd.procoptions) or
@ -900,6 +903,7 @@ implementation
procedure TJasminAssembler.WriteProcDef(pd: tprocdef);
begin
if not assigned(pd.exprasmlist) and
not(po_abstractmethod in pd.procoptions) and
(not is_javainterface(pd.struct) or
(pd.proctypeoption in [potype_unitinit,potype_unitfinalize])) then
exit;