paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 06:54:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Inoussa OUEDRAOGO to support GUIDs in interface declarations

Browse Source 
git-svn-id: trunk@7701 -
This commit is contained in:
michael 2007-06-17 09:58:21 +00:00
parent b6f4e26631
commit 663e020402
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-passrc/src/pastree.pp
View File

@ -248,6 +248,7 @@ type
AncestorType: TPasType; // TPasClassType or TPasUnresolvedTypeRef
IsPacked: Boolean; // 12/04/04 - Dave - Added
Members: TList; // array of TPasElement objects
InterfaceGUID : string; // 15/06/07 - Inoussa
end;
TArgumentAccess = (argDefault, argConst, argVar, argOut);

6
packages/fcl-passrc/src/pparser.pp
View File

@ -2018,6 +2018,12 @@ begin
if CurToken <> tkSemicolon then
begin
if ( AObjKind = okInterface ) and ( CurToken = tkSquaredBraceOpen ) then
begin
ExpectToken(tkString);
TPasClassType(Result).InterfaceGUID := CurTokenString;
ExpectToken(tkSquaredBraceClose);
end;
CurVisibility := visDefault;
while CurToken <> tkEnd do
begin