paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 15:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: CheckUsesSection: fix directories too

Browse Source 
git-svn-id: trunk@41554 -
This commit is contained in:
mattias 2013-06-05 19:40:40 +00:00
parent db4e6e9744
commit fd298c3dcf
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/directorycacher.pas
View File

@ -1145,7 +1145,7 @@ function TCTDirectoryCache.FindUnitSourceInCompletePath(var AUnitName,
function FindInFilenameLowUp(aFilename: string): string;
begin
if AnyCase then
Result:=Pool.FindDiskFilename(aFilename)
Result:=Pool.FindDiskFilename(aFilename,true)
else begin
Result:=aFilename;
if FileExistsCached(Result) then exit;

2
components/codetools/examples/scanexamples/brokenfilenames.pas
View File

@ -10,7 +10,7 @@ uses
CustApp,
biglettersunit, // must be fixed to BigLettersUnit
biglettersunit in 'biglettersunit.pas',// -> BigLettersUnit.pas
biglettersunit in '..\ScanExamples\biglettersunit.pas',// -> ../scanexamples/BigLettersUnit
biglettersunit in '..\ScanExamples\biglettersunit.pas',// -> BigLettersUnit.pas
NonExistingUnit1, NonExistingUnit2, SysUtils, NonExistingUnit3,
{$IFDEF FPC}
NonExistingUnit4

2
components/codetools/stdcodetools.pas
View File

@ -1512,7 +1512,7 @@ const
FromPos:=Node.StartPos;
ToPos:=Node.EndPos;
SourceChangeCache.Replace(gtNone,gtNone,FromPos,ToPos,s);
DebugLn('CheckUsesSection fix case Unit Name(',OldUnitName,'->',NewUnitName,') InFile(',OldInFilename,'->',NewInFilename,')');
DebugLn('TStandardCodeTool.FindMissingUnits.CheckUsesSection fix case Unit Name(',OldUnitName,'->',NewUnitName,') InFile(',OldInFilename,'->',NewInFilename,')');
end;
end else begin
// unit not found