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

* do not check whether all interface methods are implemented in abstract

Browse Source 
Java classes. TODO: do perform this check in the first non-abstract
    Java class that descends from such classes

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

5
compiler/nobj.pas
View File

@ -799,7 +799,10 @@ implementation
and Java interfaces can have multiple parent interfaces, but in that
case obviously no implementations are required) }
if assigned(_class.ImplementedInterfaces) and
not(_class.objecttype in [odt_objcprotocol,odt_interfacejava]) then
not(_class.objecttype in [odt_objcprotocol,odt_interfacejava]) and
// abstract java classes do not have to implement all interface
// methods. todo: check that non-abstract descendents do!
not((_class.objecttype=odt_javaclass) and (oo_is_abstract in _class.objectoptions)) then
begin
{ Collect implementor functions into the tImplementedInterface.procdefs }
case _class.objecttype of