From 47c41f999313b029074b661b34c6e8086f77a16c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 16 Jul 2010 22:02:08 +0000
Subject: [PATCH] codetools: parsing record case unitname.type of

git-svn-id: trunk@26703 -
---
 components/codetools/pascalparsertool.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 140b7c4eae..4ee7e87eda 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -4353,6 +4353,10 @@ begin
   CreateChildNode;
   CurNode.Desc:=ctnRecordCase;
   ReadNextAtom; // read ordinal type
+  { case a of
+    case a:b of
+    case a:b.c of
+  }
   AtomIsIdentifier(true);
   ReadNextAtom;
   if (CurPos.Flag=cafColon) then begin
@@ -4360,6 +4364,11 @@ begin
     AtomIsIdentifier(true);
     ReadNextAtom;
   end;
+  if CurPos.Flag=cafPoint then begin
+    ReadNextAtom; // unit.type
+    AtomIsIdentifier(true);
+    ReadNextAtom;
+  end;
   if not UpAtomIs('OF') then // read 'of'
     RaiseStringExpectedButAtomFound('"of"');
   // read all variants