* Added IsForward define to class declaration type

git-svn-id: trunk@11650 -

packages/fcl-passrc/src/pastree.pp

@@ -269,6 +269,7 @@ type
     ObjKind: TPasObjKind;
     AncestorType: TPasType;     // TPasClassType or TPasUnresolvedTypeRef
     IsPacked: Boolean;        // 12/04/04 - Dave - Added
+    IsForward : Boolean;
     Members: TList;     // array of TPasElement objects
     InterfaceGUID : string; // 15/06/07 - Inoussa
   end;

packages/fcl-passrc/src/pparser.pp

@@ -2106,7 +2106,9 @@ begin
         // !!!: Store interface name
       end;
       NextToken;
-    end;
+    end
+    else
+      TPasClassType(Result).isForward:=CurToken=tkSemicolon;
 
     if CurToken <> tkSemicolon then
     begin