[Instantobjects-cvscommit] SF.net SVN: instantobjects:[927] trunk/Source/Core

[<na...@us...>]

Revision: 927
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=927&view=rev
Author:   nandod
Date:     2010-09-18 08:36:12 +0000 (Sat, 18 Sep 2010)

Log Message:
-----------
+ Parser support for class-level custom RTTI attributes.

Modified Paths:
--------------
    trunk/Source/Core/InstantCode.pas

Property Changed:
----------------
    trunk/Source/Core/DXE/


Property changes on: trunk/Source/Core/DXE
___________________________________________________________________
Modified: svn:ignore
   - *.dcu
*.local
*.identcache

   + *.dcu
*.local
*.identcache
__history


Modified: trunk/Source/Core/InstantCode.pas
===================================================================
--- trunk/Source/Core/InstantCode.pas	2010-09-18 08:07:06 UTC (rev 926)
+++ trunk/Source/Core/InstantCode.pas	2010-09-18 08:36:12 UTC (rev 927)
@@ -3301,7 +3301,8 @@
 begin
   Result := Reader.ReadChar = '[';
   if Result then
-    Name := Reader.ReadToken else
+    Name := Reader.ReadToken
+  else
     Name := '';
 end;
 
@@ -3315,8 +3316,10 @@
   BracketCount := 0;
   repeat
     C := Reader.ReadChar;
-    if C = '[' then Inc(BracketCount) else
-    if C = ']' then Dec(BracketCount);
+    if C = '[' then
+      Inc(BracketCount)
+    else if C = ']' then
+      Dec(BracketCount);
   until BracketCount = 0;
 end;
 
@@ -5792,7 +5795,8 @@
   ReadObjects(Reader, [TInstantCodeRecord, TInstantCodeClassRef,
     TInstantCodeClassForward, TInstantCodeClass, TInstantCodeInterface,
     TInstantCodeDispInterface, TInstantCodeEnum, TInstantCodeSet,
-    TInstantCodeTypeDef, TInstantCodeProcType, TInstantCodeUnknownType]);
+    TInstantCodeTypeDef, TInstantCodeProcType, TInstantCodeRttiAttribute,
+    TInstantCodeUnknownType]);
 end;
 
 { TInstantCodeVars }