瀏覽代碼

* don't handle Objective-C or dispinterfaces like Pascal interfaces (we
don't generated a vmtdef for those)

git-svn-id: trunk@32685 -

Jonas Maebe 9 年之前
父節點
當前提交
1dcd312ca5
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/llvm/llvmtype.pas

+ 1 - 1
compiler/llvm/llvmtype.pas

@@ -683,7 +683,7 @@ implementation
 
 
     procedure TLLVMTypeInfo.appenddef_object(list:TAsmList;def: tobjectdef);
     procedure TLLVMTypeInfo.appenddef_object(list:TAsmList;def: tobjectdef);
       begin
       begin
-        if is_any_interface_kind(def) then
+        if is_interface(def) then
           begin
           begin
             record_def(def);
             record_def(def);
             record_def(def.vmt_def);
             record_def(def.vmt_def);