From: <na...@us...> - 2010-09-18 08:36:18
|
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 } |