From 97e0ff4105f80649ee167fba14d39178e8b18621 Mon Sep 17 00:00:00 2001
From: chrivers <chrivers@idefix.freepascal.org>
Date: Sun, 6 Aug 2006 00:50:06 +0000
Subject: [PATCH] Added iioffset for _IMPLEMENTS. added iitype initializer

git-svn-id: trunk@4358 -
---
 compiler/symdef.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index e47a3c99d4..3ee9e6a7da 100644
--- a/compiler/symdef.pas
+++ b/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;