* Patch from Inoussa OUEDRAOGO to support GUIDs in interface declarations

git-svn-id: trunk@7701 -

packages/fcl-passrc/src/pastree.pp

@@ -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);

packages/fcl-passrc/src/pparser.pp

@@ -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