paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 09:52:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fpc unit paths setdirseparator

Browse Source 
git-svn-id: trunk@26866 -
This commit is contained in:
mattias 2010-07-27 18:20:01 +00:00
parent d9c85f22a8
commit 6d3739d9ba
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/definetemplates.pas
View File

@ -1389,7 +1389,7 @@ function ParseFPCVerbose(List: TStrings; out ConfigFiles: TSTrings;
'U':
if (StrLComp(@UpLine[CurPos], 'USING UNIT PATH: ', 17) = 0) then begin
Inc(CurPos, 17);
NewPath:=copy(Line,CurPos,len);
NewPath:=SetDirSeparators(copy(Line,CurPos,len));
if not FilenameIsAbsolute(NewPath) then
NewPath:=ExpandFileNameUTF8(AnsiToUtf8(NewPath));
NewPath:=ChompPathDelim(TrimFilename(NewPath));
@ -1403,7 +1403,7 @@ function ParseFPCVerbose(List: TStrings; out ConfigFiles: TSTrings;
begin
// skip keywords
Inc(CurPos, 19);
Filename:=copy(Line,CurPos,length(Line));
Filename:=SetDirSeparators(copy(Line,CurPos,length(Line)));
ConfigFiles.Add('-'+Filename);
end else if StrLComp(@UpLine[CurPos], 'COMPILER: ', 10) = 0 then begin
// skip keywords
@ -1415,7 +1415,7 @@ function ParseFPCVerbose(List: TStrings; out ConfigFiles: TSTrings;
begin
// skip keywords
Inc(CurPos, 26);
Filename:=copy(Line,CurPos,length(Line));
Filename:=SetDirSeparators(copy(Line,CurPos,length(Line)));
if (ConfigFiles.Count>0)
and (ConfigFiles[ConfigFiles.Count-1]='-'+Filename) then
ConfigFiles.Delete(ConfigFiles.Count-1);