paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 16:52:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: do not check include path for output directory, the output directory is auto created

Browse Source 
git-svn-id: trunk@29196 -
This commit is contained in:
mattias 2011-01-25 17:47:21 +00:00
parent b5b5295fc2
commit 4165fa706d
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/frames/compiler_path_options.pas
View File

@ -81,17 +81,26 @@ implementation
{ TCompilerPathOptionsFrame }
function TCompilerPathOptionsFrame.Check: boolean;
var
NewParsedOutputDir: string;
function CheckPutSearchPath(
const Context, OldExpandedPath, NewExpandedPath: string): boolean;
const Context, OldExpandedPath, NewExpandedPath: string): boolean;
var
Level: TCheckCompileOptionsMsgLvl;
p: String;
begin
if OldExpandedPath <> NewExpandedPath then
Level := ccomlHints
else
Level := ccomlErrors;
Result := CheckSearchPath(Context, NewExpandedPath, Level);
// do not complain about missing output directory
p:=NewExpandedPath;
if NewParsedOutputDir<>'' then
p:=RemoveSearchPaths(p,NewParsedOutputDir);
Result := CheckSearchPath(Context, p, Level);
end;
var
@ -114,6 +123,7 @@ var
procedure GetParsedPaths;
begin
NewParsedOutputDir:=FCompilerOpts.GetUnitOutPath(False,coptParsed);
NewParsedIncludePath:=FCompilerOpts.GetIncludePath(False,coptParsed,false);
NewParsedLibraries:=FCompilerOpts.GetLibraryPath(False,coptParsed,false);
NewParsedUnitPath:=FCompilerOpts.GetUnitPath(False,coptParsed,false);
@ -123,6 +133,8 @@ var
begin
GetParsedPaths;
OldParsedIncludePath := NewParsedIncludePath;
OldUnparsedIncludePath := FCompilerOpts.IncludePath;
OldParsedLibraryPath := NewParsedLibraries;