paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 19:49:12 +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) ImplIntf.AddImplProc(implprocdef)
end end
else else
if ImplIntf.VtblImplIntf.itype = etStandard then if ImplIntf.iitype = 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;
@ -1235,8 +1235,8 @@ implementation
else else
rawdata.concat(Tai_string.Create(AImplIntf.IntfDef.iidstr^)); rawdata.concat(Tai_string.Create(AImplIntf.IntfDef.iidstr^));
current_asmdata.asmlists[al_globals].concat(Tai_const.Create_sym(iidlabel)); current_asmdata.asmlists[al_globals].concat(Tai_const.Create_sym(iidlabel));
{ IType } { IIType }
current_asmdata.asmlists[al_globals].concat(Tai_const.Create_aint(aint(AImplIntf.VtblImplIntf.itype))); current_asmdata.asmlists[al_globals].concat(Tai_const.Create_aint(aint(AImplIntf.iitype)));
end; end;