From 57f884134f4b73ae97de805e759f32b10c55f941 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 30 Aug 2011 17:47:41 +0000
Subject: [PATCH] codetools: TFindDeclarationTool.FindUnitSource: dotted names

git-svn-id: trunk@32125 -
---
 components/codetools/finddeclarationtool.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 78396cf848..52c76e0a26 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -794,12 +794,12 @@ type
           const AnUnitName: string;
           out NamePos, InPos: TAtomPosition): boolean;
     function FindUnitInAllUsesSections(const AnUnitName: string;
-          out NamePos, InPos: TAtomPosition): boolean; // ToDo: dotted
+          out NamePos, InPos: TAtomPosition): boolean;
     function GetUnitNameForUsesSection(TargetTool: TFindDeclarationTool): string;
     function GetUnitForUsesSection(TargetTool: TFindDeclarationTool): string; deprecated;
 
     function FindUnitSource(const AnUnitName,
-      AnUnitInFilename: string; ExceptionOnNotFound: boolean): TCodeBuffer; // ToDo: dotted
+      AnUnitInFilename: string; ExceptionOnNotFound: boolean): TCodeBuffer;
     function FindUnitCaseInsensitive(var AnUnitName,
                                      AnUnitInFilename: string): string; // ToDo: dotted
     procedure GatherUnitAndSrcPath(var UnitPath, CompleteSrcPath: string);
@@ -1920,7 +1920,7 @@ begin
   Result:=false;
   NamePos.StartPos:=-1;
   InPos.StartPos:=-1;
-  if (AnUnitName='') or (length(AnUnitName)>255) then begin
+  if not IsDottedIdentifier(AnUnitName) then begin
     DebugLn(['TFindDeclarationTool.FindUnitInAllUsesSections invalid AnUnitName']);
     exit;
   end;