From 3b17cceb51e521dca9e25bf7ef4e8e70b450cada Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 13 Mar 2015 00:27:56 +0000
Subject: [PATCH] codetools: jvm: has no iinterface

git-svn-id: branches/fixes_1_4@48330 -
---
 components/codetools/finddeclarationtool.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 2154f3f150..beb38aacc6 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -4543,6 +4543,8 @@ begin
     // default interface is IDispatch
     BaseClassName:='IDispatch';
   end else if ClassNode.Desc in AllClassInterfaces then begin
+    if Scanner.Values.IsDefined('CPUJVM') then
+      exit; // JVM has no default interface
     // Delphi has as default interface IInterface
     // FPC has as default interface IUnknown and an alias IInterface = IUnknown
     if CompareSrcIdentifiers(ClassIdentNode.StartPos,'IUnknown') then exit;