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

lazbuild: replaced ForecDirectories with ForceDirectory

Browse Source 
git-svn-id: trunk@27876 -
This commit is contained in:
mattias 2010-10-26 09:10:05 +00:00
parent 690e7be16e
commit dab5f3040e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/lazbuild.lpr
View File

@ -653,13 +653,13 @@ begin
// create unit output directory // create unit output directory
UnitOutputDirectory:=Project1.CompilerOptions.GetUnitOutPath(false); UnitOutputDirectory:=Project1.CompilerOptions.GetUnitOutPath(false);
if not ForceDirectoriesUTF8(UnitOutputDirectory) then if not ForceDirectory(UnitOutputDirectory) then
Error(ErrorBuildFailed,'Unable to create project unit output directory '+UnitOutputDirectory); Error(ErrorBuildFailed,'Unable to create project unit output directory '+UnitOutputDirectory);
// create target output directory // create target output directory
TargetExeName := Project1.CompilerOptions.CreateTargetFilename(Project1.MainFilename); TargetExeName := Project1.CompilerOptions.CreateTargetFilename(Project1.MainFilename);
TargetExeDir := ExtractFilePath(TargetExeName); TargetExeDir := ExtractFilePath(TargetExeName);
if not ForceDirectoriesUTF8(TargetExeDir) then if not ForceDirectory(TargetExeDir) then
Error(ErrorBuildFailed,'Unable to create project target directory '+TargetExeDir); Error(ErrorBuildFailed,'Unable to create project target directory '+TargetExeDir);
// update all lrs files // update all lrs files