IDE: not creating output directory for test project, bug #11996

git-svn-id: trunk@16327 -
This commit is contained in:
mattias 2008-08-31 09:17:39 +00:00
parent 697b3bc780
commit 6acd41dad9

View File

@ -9325,7 +9325,8 @@ begin
// create output directories
UnitOutputDirectory:=Project1.CompilerOptions.GetUnitOutPath(false);
if not DirPathExistsCached(UnitOutputDirectory) then begin
if (FilenameIsAbsolute(UnitOutputDirectory))
and (not DirPathExistsCached(UnitOutputDirectory)) then begin
if not FileIsInPath(UnitOutputDirectory,WorkingDir) then begin
Result:=IDEQuestionDialog(lisCreateDirectory,
Format(lisTheOutputDirectoryIsMissing, ['"', UnitOutputDirectory, '"']