paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 19:02:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds EntryType and EntryOffset data to TInterfaceEntry blocks. used for _IMPLEMENTS.

Browse Source 
git-svn-id: trunk@4359 -
This commit is contained in:
chrivers 2006-08-06 00:55:59 +00:00
parent 97e0ff4105
commit 0fe365f069
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nobj.pas
View File

@ -932,6 +932,10 @@ implementation
else
rawdata.concat(Tai_string.Create(curintf.iidstr^));
current_asmdata.asmlists[al_globals].concat(Tai_const.Create_sym(tmplabel));
{ EntryType }
current_asmdata.asmlists[al_globals].concat(Tai_const.Create_aint(integer(curintf.iitype)));
{ EntryOffset }
current_asmdata.asmlists[al_globals].concat(Tai_const.Create_aint(integer(curintf.iioffset)));
end;
@ -1139,7 +1143,8 @@ implementation
if assigned(implprocdef) then
_class.implementedinterfaces.addimplproc(intfindex,implprocdef)
else
Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
if _class.implementedinterfaces.interfaces(intfindex).iitype = etStandard then
Message1(sym_e_no_matching_implementation_found,tprocdef(def).fullprocname(false));
end;
def:=tdef(def.indexnext);
end;
@ -1209,11 +1214,10 @@ implementation
vmtentry : pvmtentry;
procdefcoll : pprocdefcoll;
i : longint;
procname
procname : string;
{$ifdef vtentry}
, hs
hs : string;
{$endif vtentry}
: string;
begin
{ walk trough all numbers for virtual methods and search }
{ the method }