From 3e1c0cc8a59ee5611b80f153bc1a4b9464b5a99d Mon Sep 17 00:00:00 2001
From: chrivers <chrivers@idefix.freepascal.org>
Date: Sat, 5 Aug 2006 20:08:19 +0000
Subject: [PATCH] Added type TInterfaceEntryType, EntryType field in
 TInterfaceEntry. Used in "implements"-implementation

git-svn-id: trunk@4354 -
---
 rtl/inc/objpash.inc | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index 04f1196f59..f9f6e02c95 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -107,12 +107,16 @@
                  );
        end;
 
+       // This enumerate is found both in the rtl and compiler. Do not change the order of the fields.
+       tinterfaceentrytype = (etStandard, etVirtualMethodResult, etStaticMethodResult, etFieldValue);
+
        pinterfaceentry = ^tinterfaceentry;
        tinterfaceentry = record
-         IID     : pguid; { if assigned(IID) then Com else Corba}
-         VTable  : Pointer;
-         IOffset : PtrInt;
-         IIDStr  : pshortstring; { never nil. Com: upper(GuidToString(IID^)) }
+         IID       : pguid; { if assigned(IID) then Com else Corba}
+         VTable    : Pointer;
+         IOffset   : PtrInt;
+         IIDStr    : pshortstring; { never nil. Com: upper(GuidToString(IID^)) }
+         EntryType : tinterfaceentrytype;
        end;
 
        pinterfacetable = ^tinterfacetable;