Browse Source

* check implementedinterfaces also when going from a Java class to
a Java interface

git-svn-id: branches/jvmbackend@18532 -

Jonas Maebe 14 years ago
parent
commit
6614f3220c
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/defcmp.pas

+ 3 - 1
compiler/defcmp.pas

@@ -1328,7 +1328,9 @@ implementation
                    else if ((is_interface(def_to) and
                              is_class(def_from)) or
                             (is_objcprotocol(def_to) and
-                             is_objcclass(def_from))) and
+                             is_objcclass(def_from)) or
+                            (is_javainterface(def_to) and
+                             is_javaclass(def_from))) and
                            assigned(tobjectdef(def_from).ImplementedInterfaces) then
                      begin
                         { we've to search in parent classes as well }