Parcourir la source

Added iioffset for _IMPLEMENTS. added iitype initializer

git-svn-id: trunk@4358 -
chrivers il y a 19 ans
Parent
commit
97e0ff4105
1 fichiers modifiés avec 2 ajouts et 0 suppressions
  1. 2 0
      compiler/symdef.pas

+ 2 - 0
compiler/symdef.pas

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