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

IDE: if default fpc message file does not exist in fpc sources use the codetools one

Browse Source 
git-svn-id: trunk@45318 -
This commit is contained in:
mattias 2014-06-03 10:56:51 +00:00
parent 8a402f1c6b
commit 604bb5f428
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/environmentopts.pp
View File

@ -2044,7 +2044,16 @@ begin
end;
eopCompilerMessagesFilename:
// data file
ParsedValue:=TrimAndExpandFilename(ParsedValue,GetParsedLazarusDirectory);
begin
ParsedValue:=TrimAndExpandFilename(ParsedValue,GetParsedLazarusDirectory);
if (UnparsedValue='') and (not FileExistsCached(ParsedValue)) then
begin
// the default errore.msg file does not exist in the fpc sources
// => use the fallback of the codetools
ParsedValue:=AppendPathDelim(GetParsedLazarusDirectory)
+SetDirSeparators('components/codetools/fpc.errore.msg');
end;
end;
eopFPDocPaths,eopDebuggerSearchPath:
// search path
ParsedValue:=TrimSearchPath(ParsedValue,GetParsedLazarusDirectory,true);