From 480fedbcc882f190c54b833830244b9b782df4fa Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 1 Apr 2013 12:58:40 +0000
Subject: [PATCH] codetools: safety clean up on exception

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

diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index 5a20f58410..53baa99447 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -1667,12 +1667,14 @@ begin
   ClearCurCodeTool;
   MainCode:=GetMainCode(Code);
   if MainCode=nil then begin
+    FErrorLine:=1;
+    FErrorColumn:=1;
+    fErrorCode:=Code;
     if Code = nil then
+    begin
       fErrorMsg:='TCodeToolManager.InitCurCodeTool Code=nil'
+    end
     else begin
-      fErrorCode:=Code;
-      FErrorLine:=1;
-      FErrorColumn:=1;
       fErrorMsg:='unit of include file is not known (hint: open and explore unit first)';
     end;
     exit;