From 5cec794a58ba14c56acdc6b1fe5598599589e177 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 27 Jan 2011 20:07:27 +0000
Subject: [PATCH] codetools: parsing external keyword after forward class, bug
 #17197

git-svn-id: trunk@29224 -
---
 components/codetools/pascalparsertool.pas | 44 +++++++++++------------
 1 file changed, 22 insertions(+), 22 deletions(-)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 071a87fa8c..882248d2dc 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3881,29 +3881,29 @@ begin
   if CurPos.Flag=cafEND then begin
     // read extra flags
     ReadNextAtom;
-    if CurPos.Flag=cafSemicolon then
-      ReadNextAtom;
-    if UpAtomIs('DEPRECATED') then begin
-      ReadNextAtom;
-      if AtomIsStringConstant then
-        ReadConstant(true,false,[]);
-    end else if UpAtomIs('PLATFORM')
-      or UpAtomIs('UNIMPLEMENTED') or UpAtomIs('EXPERIMENTAL')
-      or UpAtomIs('LIBRARY')
-    then
-      ReadNextAtom;
-    if CurPos.Flag=cafSemicolon then
-      ReadNextAtom;
-    if UpAtomIs('EXTERNAL') then begin
-      ReadNextAtom;
-      if UpAtomIs('NAME') then begin
-        ReadNextAtom;
-        ReadConstant(true,false,[]);
-      end;
-    end;
-    if CurPos.Flag<>cafSemicolon then
-      UndoReadNextAtom;
   end;
+  if CurPos.Flag=cafSemicolon then
+    ReadNextAtom;
+  if UpAtomIs('DEPRECATED') then begin
+    ReadNextAtom;
+    if AtomIsStringConstant then
+      ReadConstant(true,false,[]);
+  end else if UpAtomIs('PLATFORM')
+    or UpAtomIs('UNIMPLEMENTED') or UpAtomIs('EXPERIMENTAL')
+    or UpAtomIs('LIBRARY')
+  then
+    ReadNextAtom;
+  if CurPos.Flag=cafSemicolon then
+    ReadNextAtom;
+  if UpAtomIs('EXTERNAL') then begin
+    ReadNextAtom;
+    if UpAtomIs('NAME') then begin
+      ReadNextAtom;
+      ReadConstant(true,false,[]);
+    end;
+  end;
+  if CurPos.Flag<>cafSemicolon then
+    UndoReadNextAtom;
   if ChildCreated then begin
     // close class
     CurNode.EndPos:=CurPos.EndPos;