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

codetools: LoadFile: normalize filename

Browse Source 
git-svn-id: trunk@43400 -
This commit is contained in:
mattias 2013-11-09 13:06:14 +00:00
parent 26b8234ad0
commit 73a2ef1ce7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/codecache.pas
View File

@ -178,7 +178,7 @@ type
function CreateFile(const AFilename: string): TCodeBuffer;
function FindFile(AFilename: string): TCodeBuffer;
function LastIncludedByFile(const IncludeFilename: string): string;
function LoadFile(const AFilename: string): TCodeBuffer;
function LoadFile(AFilename: string): TCodeBuffer;
procedure RemoveCodeBuffer(Buffer: TCodeBuffer);
procedure LoadIncludeLinksDataFromList(List: TStrings);
function LoadIncludeLinksFromFile(const AFilename: string): boolean;
@ -570,7 +570,7 @@ begin
Result:=nil;
end;
function TCodeCache.LoadFile(const AFilename: string): TCodeBuffer;
function TCodeCache.LoadFile(AFilename: string): TCodeBuffer;
var
DiskFilename: String;
@ -584,6 +584,7 @@ var
end;
begin
AFilename:=TrimFilename(AFilename);
Result:=FindFile(AFilename);
if FilenameIsAbsolute(AFilename) then begin
if Result=nil then begin