瀏覽代碼

* Fixed crash bug with IMPLEMENTS due to the changes earlier today. (No longer dereferences VtblImplIntf when we should not)

git-svn-id: trunk@6221 -
chrivers 18 年之前
父節點
當前提交
997f254ff7
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/nobj.pas

+ 1 - 1
compiler/nobj.pas

@@ -521,7 +521,7 @@ implementation
                     ImplIntf.AddImplProc(implprocdef)
                     ImplIntf.AddImplProc(implprocdef)
                   end
                   end
                 else
                 else
-                  if ImplIntf.VtblImplIntf.IType = etStandard then
+                  if ImplIntf.IType = etStandard then
                     Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
                     Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
               end;
               end;
           end;
           end;