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

IDE: build laz: clean all: clean up target directory

Browse Source 
git-svn-id: trunk@36450 -
This commit is contained in:
mattias 2012-03-30 09:27:24 +00:00
parent 8477a4ae67
commit 5cb07e2b79
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/buildlazdialog.pas
View File

@ -244,6 +244,7 @@ var
OutputDirRedirected, UpdateRevisionInc: boolean;
IdeBuildMode: TIdeBuildMode;
CmdLineParams: String;
Dir: String;
begin
Result:=mrCancel;
@ -303,6 +304,16 @@ begin
CleanLazarusSrcDir(WorkingDirectory+PathDelim+'ideintf');
CleanLazarusSrcDir(WorkingDirectory+PathDelim+'tools');
CleanLazarusSrcDir(WorkingDirectory+PathDelim+'test');
// clean config directory
CleanLazarusSrcDir(GetPrimaryConfigPath+PathDelim+'units');
// clean custom target directory
if Profile.TargetDirectory<>'' then begin
Dir:=Profile.GetParsedTargetDirectory(Macros);
if (Dir<>'') and DirPathExists(Dir) then
CleanLazarusSrcDir(Dir);
end;
end;
// call make to clean up