From d3a1c4c3e866d2b5c52f83dee676afac99c4df6f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 25 Nov 2011 10:04:42 +0000
Subject: [PATCH] codetools: TCodeToolManager.GetMainCode: if
 FindCodeOfMainUnitHint fails, use the source directly

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

diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index c948880ce8..7f272121d4 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -1243,9 +1243,9 @@ begin
     Result:=NewFile;
   end;
   if (not FilenameHasSourceExt(Result.Filename)) then begin
-    Result:=FindCodeOfMainUnitHint(Result);
+    NewFile:=FindCodeOfMainUnitHint(Result);
+    if NewFile<>nil then Result:=NewFile;
   end;
-  if Result=nil then exit;
   CreateScanner(Result);
 end;
 
@@ -1306,6 +1306,7 @@ begin
   if Code=nil then exit;
   //DebugLn('TCodeToolManager.FindCodeOfMainUnitHint ',Code.Filename);
   if not FindMainUnitHint(Code.Source,MainUnitFilename) then exit;
+  if MainUnitFilename='' then exit;
   MainUnitFilename:=TrimFilename(MainUnitFilename);
   if (not FilenameIsAbsolute(MainUnitFilename))
   and (not Code.IsVirtual) then