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

IDE: fpc msg parser: fetch include path before starting thread

Browse Source 
git-svn-id: trunk@45151 -
This commit is contained in:
mattias 2014-05-22 13:49:33 +00:00
parent 4665cd1889
commit 8a1caa1d87
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/etfpcmsgparser.pas
View File

@ -981,6 +981,10 @@ begin
LoadMsgFile(MsgFilename,MsgFile);
if TranslationFilename<>'' then
LoadMsgFile(TranslationFilename,TranslationFile);
fIncPathValidForWorkerDir:=Tool.WorkerDirectory;
fIncPath:=CodeToolBoss.GetIncludePathForDirectory(
ChompPathDelim(fIncPathValidForWorkerDir));
end;
procedure TIDEFPCParser.InitReading;
@ -1003,7 +1007,6 @@ begin
fLastWorkerImprovedMessage[false]:=-1;
fLastWorkerImprovedMessage[true]:=-1;
fIncPathValidForWorkerDir:='-';
FreeAndNil(DirectoryStack);
end;