paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 20:26:00 +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
if fCompilingHistory=nil then fCompilingHistory:=TStringList.Create;
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);
AFilename:=TrimFilename(SetDirSeparators(copy(s,p,length(s))));
fCompilingHistory.Add(AFilename);