From 09853b3d90dd7ac09c62adcc18d68614049de984 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 2 May 2013 21:08:00 +0000
Subject: [PATCH] codetools: init error state

git-svn-id: trunk@41005 -
---
 components/codetools/codetoolmanager.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index 49c7709e44..1615e5ff11 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -1723,12 +1723,16 @@ begin
 end;
 
 function TCodeToolManager.HandleException(AnException: Exception): boolean;
-var ErrorSrcTool: TCustomCodeTool;
+var
+  ErrorSrcTool: TCustomCodeTool;
   DirtyPos: Integer;
   ErrorDirTool: TCompilerDirectivesTree;
 begin
   fErrorMsg:=AnException.Message;
   fErrorTopLine:=0;
+  fErrorCode:=nil;
+  fErrorColumn:=-1;
+  fErrorLine:=-1;
   if (AnException is ELinkScannerError) then begin
     // link scanner error
     if AnException is ELinkScannerConsistency then
@@ -1761,14 +1765,10 @@ begin
     // Compiler directive parser error
     ErrorDirTool:=ECDirectiveParserException(AnException).Sender;
     fErrorCode:=ErrorDirTool.Code;
-    fErrorColumn:=-1;
-    fErrorLine:=-1;
   end else if (AnException is ESourceChangeCacheError) then begin
     // SourceChangeCache error
-    fErrorCode:=nil;
   end else if (AnException is ECodeToolManagerError) then begin
     // CodeToolManager error
-    fErrorCode:=nil;
   end else begin
     // unknown exception
     DumpExceptionBackTrace;