paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 04:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TFindDeclarationTool.FindUnitSource: dotted names

Browse Source 
git-svn-id: trunk@32125 -
This commit is contained in:
mattias 2011-08-30 17:47:41 +00:00
parent fb4c0b4a54
commit 57f884134f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -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;