From 22c5d60fd4d4cfd47558228dbee93921e8595d2b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 18 Nov 2013 00:22:20 +0000
Subject: [PATCH] codetools: nicer error message on procedure return type

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

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index dde64ce2c5..cd86d5ace4 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1694,6 +1694,8 @@ begin
         end;
       end;
     end;
+  end else if CurPos.Flag=cafColon then begin
+    SaveRaiseCharExpectedButAtomFound(';');
   end;
   if UpAtomIs('OF') then begin
     // read 'of object'