Selaa lähdekoodia

Added tinterfaceentrytype used in "implements"-implementation

git-svn-id: trunk@4353 -
chrivers 19 vuotta sitten
vanhempi
commit
c7868bd9c9
1 muutettua tiedostoa jossa 9 lisäystä ja 0 poistoa
  1. 9 0
      compiler/symconst.pas

+ 9 - 0
compiler/symconst.pas

@@ -282,6 +282,15 @@ type
     odt_dispinterface
   );
 
+  { Variations in interfaces implementation }
+  { Beware, this data is duplicated in the compiler and rtl. }
+  { Do not change the order of the fields. }
+  tinterfaceentrytype = (etStandard,
+    etVirtualMethodResult,
+    etStaticMethodResult,
+    etFieldValue
+  );
+
   { options for objects and classes }
   tobjectoption=(oo_none,
     oo_is_forward,         { the class is only a forward declared yet }