From 4f81b67ac675e6dfd72c434db37ca0c5a72b8914 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 21 Apr 2017 21:24:39 +0000
Subject: [PATCH] codetools: fixed error msg

git-svn-id: branches/fixes_1_8@54675 -
---
 components/codetools/codetoolmanager.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index 28fb71d2ca..cf250a015b 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -1787,8 +1787,8 @@ var
   DirtyPos: Integer;
   ErrorDirTool: TCompilerDirectivesTree;
 begin
-  fErrorMsg:=AnException.Message;
   ClearError;
+  fErrorMsg:=AnException.Message;
   if (AnException is ELinkScannerError) then begin
     // link scanner error
     if AnException is ELinkScannerConsistency then