basic proof of concept aspect implementation using token replayaspect

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/aspect@6250 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 3 deletions

diff --git a/compiler/symconst.pas b/compiler/symconst.pas
index 33869284c4..c9cd3c0a25 100644
--- a/compiler/symconst.pas
+++ b/compiler/symconst.pas
@@ -147,7 +147,11 @@ type
     { type is a generic }
     df_generic,
     { type is a specialization of a generic type }
-    df_specialization
+    df_specialization,
+    { type is an aspect }
+    df_aspect,
+    { type has an aspect applied }
+    df_aspecttarget
   );
   tdefoptions=set of tdefoption;
 
@@ -215,7 +219,8 @@ type
     potype_destructor,   { Procedure is a destructor }
     potype_operator,     { Procedure defines an operator }
     potype_procedure,
-    potype_function
+    potype_function,
+    potype_aspect
   );
   tproctypeoptions=set of tproctypeoption;
 
@@ -270,7 +275,9 @@ type
     po_has_importdll,
     po_has_importname,
     po_kylixlocal,
-    po_dispid
+    po_dispid,
+    { aspects }
+    po_contains_joinpoint
   );
   tprocoptions=set of tprocoption;