paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Updated nobj to match moved iitype field to TImplementedInterface

Browse Source 
git-svn-id: trunk@6212 -
This commit is contained in:
chrivers 2007-01-26 22:04:07 +00:00
parent cf04dc0fa1
commit 5e94d3f550
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nobj.pas
View File

@ -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;