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

IDE: fall back package output directory: set dir separators not

Browse Source 
git-svn-id: trunk@37024 -
This commit is contained in:
mattias 2012-04-25 19:13:10 +00:00
parent d853ab2e28
commit a5d49673a3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/project.pp
View File

@ -5045,7 +5045,7 @@ begin
XMLConfig.SetValue('Compiler/Date',CompilerFileDate); XMLConfig.SetValue('Compiler/Date',CompilerFileDate);
XMLConfig.SetValue('Params/Value',CompilerParams); XMLConfig.SetValue('Params/Value',CompilerParams);
XMLConfig.SetDeleteValue('Complete/Value',Complete,true); XMLConfig.SetDeleteValue('Complete/Value',Complete,true);
InvalidateFileStateCache; InvalidateFileStateCache(StateFile);
XMLConfig.Flush; XMLConfig.Flush;
finally finally
XMLConfig.Free; XMLConfig.Free;

2
packager/packagesystem.pas
View File

@ -3959,7 +3959,7 @@ begin
// use the default output directory, if it is relative // use the default output directory, if it is relative
// (this way the fallback creates the same amount of target directories) // (this way the fallback creates the same amount of target directories)
Dir:=APackage.CompilerOptions.ParsedOpts.Values[pcosOutputDir].UnparsedValue; Dir:=APackage.CompilerOptions.ParsedOpts.Values[pcosOutputDir].UnparsedValue;
Dir:=SetDirSeparators(APackage.SubstitutePkgMacros(Dir,false)); Dir:=APackage.SubstitutePkgMacros(Dir,false);
if FilenameIsAbsolute(Dir) then begin if FilenameIsAbsolute(Dir) then begin
// it is not relative => create a default one // it is not relative => create a default one
Dir:='$(TargetOS)-$(TargetCPU)'; Dir:='$(TargetOS)-$(TargetCPU)';