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

IDE: setdirseparator on fpc output

Browse Source 
git-svn-id: trunk@25895 -
This commit is contained in:
mattias 2010-06-04 15:50:24 +00:00
parent 4eeeb7d463
commit d7bdeb4d84
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/outputfilter.pas
View File

@ -710,7 +710,7 @@ var i, j, FilenameEndPos: integer;
// add path to history // add path to history
if fCompilingHistory=nil then fCompilingHistory:=TStringList.Create; if fCompilingHistory=nil then fCompilingHistory:=TStringList.Create;
inc(p,length('Compiling ')); inc(p,length('Compiling '));
if (length(s)>=p+1) and (s[p]='.') and (s[p+1]=PathDelim) then if (length(s)>=p+1) and (s[p]='.') and (s[p+1] in ['/','\']) then
inc(p,2); inc(p,2);
AFilename:=TrimFilename(SetDirSeparators(copy(s,p,length(s)))); AFilename:=TrimFilename(SetDirSeparators(copy(s,p,length(s))));
fCompilingHistory.Add(AFilename); fCompilingHistory.Add(AFilename);