mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:19:33 +02:00
Added iioffset for _IMPLEMENTS. added iitype initializer
git-svn-id: trunk@4358 -
This commit is contained in:
parent
037fd46699
commit
97e0ff4105
@ -248,6 +248,7 @@ interface
|
||||
iidguid: pguid;
|
||||
iidstr: pstring;
|
||||
iitype: tinterfaceentrytype;
|
||||
iioffset: longint;
|
||||
lastvtableindex: longint;
|
||||
{ store implemented interfaces defs and name mappings }
|
||||
implementedinterfaces: timplementedinterfaces;
|
||||
@ -4262,6 +4263,7 @@ implementation
|
||||
else
|
||||
implementedinterfaces:=nil;
|
||||
writing_class_record_dbginfo:=false;
|
||||
iitype := etStandard;
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user