paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: auto fix pathdelims of make messages

Browse Source 
git-svn-id: trunk@25874 -
This commit is contained in:
mattias 2010-06-03 21:57:40 +00:00
parent 8b125eb6a7
commit cf38d711ab
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/outputfilter.pas
View File

@ -1541,7 +1541,8 @@ begin
if (fMakeDirHistory=nil) then fMakeDirHistory:=TStringList.Create;
fMakeDirHistory.Add(fCurrentDirectory);
end;
InternalSetCurrentDirectory(copy(s,i,length(s)-i));
// the make tool uses unix paths under windows
InternalSetCurrentDirectory(SetDirSeparators(copy(s,i,length(s)-i)));
exit;
end;
// check for leaving directory
@ -1565,7 +1566,7 @@ begin
MsgStartPos:=BracketEnd+1;
while (MsgStartPos<=length(s)) and (s[MsgStartPos]=' ') do inc(MsgStartPos);
MakeMsg:=copy(s,MsgStartPos,length(s)-MsgStartPos+1);
DoAddFilteredLine(s);
DoAddFilteredLine(SetDirSeparators(s));
if CompareText(copy(MakeMsg,1,5),'Error')=0 then
if (ofoExceptionOnError in Options) then
RaiseOutputFilterError(s);