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

IDE: fpc msg parser: simplified

Browse Source 
git-svn-id: trunk@53291 -
This commit is contained in:
mattias 2016-11-03 19:39:32 +00:00
parent 548c20fb9f
commit bebe80cc91
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/etfpcmsgparser.pas
View File

@ -1247,7 +1247,6 @@ begin
NewFilename:=AppendPathDelim(Tool.WorkerDirectory)+ExtractFileName(AFilename);
if FileExists(NewFilename,false) then begin
AFilename:=NewFilename;
aDir:=InstantFPCCache;
end;
end;
// store directory
@ -2548,8 +2547,8 @@ var
Reversed: String;
begin
Result:=false;
if (InstantFPCCache<>'')
and (CompareFilenames(ExtractFilePath(aFilename),InstantFPCCache)=0) then begin
if (InstantFPCCache='') then exit;
if (CompareFilenames(ExtractFilePath(aFilename),InstantFPCCache)=0) then begin
Reversed:=AppendPathDelim(Tool.WorkerDirectory)+ExtractFilename(aFilename);
if FileExists(Reversed,aSynchronized) then begin
aFilename:=Reversed;
@ -2927,7 +2926,7 @@ begin
end;
if p^<>')' then exit; // not a fpc message
inc(p);
while p^ in [' '] do inc(p);
while p^=' ' do inc(p);
end;
if p^ in [#0..#31,' '] then begin