From 5e94d3f5508862fa4e96636c86cdcdaa6b10cfef Mon Sep 17 00:00:00 2001
From: chrivers <chrivers@idefix.freepascal.org>
Date: Fri, 26 Jan 2007 22:04:07 +0000
Subject: [PATCH]  * Updated nobj to match moved iitype field to
 TImplementedInterface

git-svn-id: trunk@6212 -
---
 compiler/nobj.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/nobj.pas b/compiler/nobj.pas
index 490f2f6fe6..5f330ddc00 100644
--- a/compiler/nobj.pas
+++ b/compiler/nobj.pas
@@ -521,7 +521,7 @@ implementation
                     ImplIntf.AddImplProc(implprocdef)
                   end
                 else
-                  if ImplIntf.VtblImplIntf.itype = etStandard then
+                  if ImplIntf.iitype = etStandard then
                     Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
               end;
           end;
@@ -1235,8 +1235,8 @@ implementation
         else
           rawdata.concat(Tai_string.Create(AImplIntf.IntfDef.iidstr^));
         current_asmdata.asmlists[al_globals].concat(Tai_const.Create_sym(iidlabel));
-        { IType }
-        current_asmdata.asmlists[al_globals].concat(Tai_const.Create_aint(aint(AImplIntf.VtblImplIntf.itype)));
+        { IIType }
+        current_asmdata.asmlists[al_globals].concat(Tai_const.Create_aint(aint(AImplIntf.iitype)));
       end;