From 1dcd312ca59d6f93c14fc69b98e2faf491bf4edb Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 20 Dec 2015 20:56:02 +0000
Subject: [PATCH]   * don't handle Objective-C or dispinterfaces like Pascal
 interfaces (we     don't generated a vmtdef for those)

git-svn-id: trunk@32685 -
---
 compiler/llvm/llvmtype.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/llvm/llvmtype.pas b/compiler/llvm/llvmtype.pas
index f2ce46fd56..b499034a73 100644
--- a/compiler/llvm/llvmtype.pas
+++ b/compiler/llvm/llvmtype.pas
@@ -683,7 +683,7 @@ implementation
 
     procedure TLLVMTypeInfo.appenddef_object(list:TAsmList;def: tobjectdef);
       begin
-        if is_any_interface_kind(def) then
+        if is_interface(def) then
           begin
             record_def(def);
             record_def(def.vmt_def);