diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-08-25 13:50:26 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-08-25 13:50:26 +0000 |
commit | 55c4348f936cafda8aa67ec07f8ef840544d6c2b (patch) | |
tree | fc918d91a5cff2baa286ef5245f19e6cd7173c4b | |
parent | b8b94ad67e29e8cb8d45baa436e0fdda1b860c34 (diff) | |
download | fpc-55c4348f936cafda8aa67ec07f8ef840544d6c2b.tar.gz |
* Added IsForward define to class declaration type
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11650 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-passrc/src/pastree.pp | 1 | ||||
-rw-r--r-- | packages/fcl-passrc/src/pparser.pp | 4 |
2 files changed, 4 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pastree.pp b/packages/fcl-passrc/src/pastree.pp index 83a9d7e5ad..55dabcd212 100644 --- a/packages/fcl-passrc/src/pastree.pp +++ b/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; diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp index 6d03441033..3aae62ac63 100644 --- a/packages/fcl-passrc/src/pparser.pp +++ b/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 |