paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 00:00:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: expand fppkg fpc path

Browse Source
This commit is contained in:
mattias 2023-07-26 10:21:43 +01:00
parent 1831cd1ad6
commit f01f0ab38e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/fppkghelper.pas
View File

@ -56,6 +56,7 @@ var
procedure TFppkgHelper.InitializeFppkg; procedure TFppkgHelper.InitializeFppkg;
var var
FPpkg: TpkgFPpkg; FPpkg: TpkgFPpkg;
aFilename: String;
begin begin
FPpkg := TpkgFPpkg.Create(nil); FPpkg := TpkgFPpkg.Create(nil);
try try
@ -66,6 +67,11 @@ begin
FPpkg.InitializeGlobalOptions(FOverrideConfigurationFilename); FPpkg.InitializeGlobalOptions(FOverrideConfigurationFilename);
FPpkg.InitializeCompilerOptions; FPpkg.InitializeCompilerOptions;
aFilename:=ExpandFileName(FPpkg.CompilerOptions.Compiler);
if not FileExistsCached(aFilename) then
exit; // no fppkg -> silently ignore here
FPpkg.CompilerOptions.Compiler:=aFilename;
FPpkg.CompilerOptions.CheckCompilerValues; FPpkg.CompilerOptions.CheckCompilerValues;
FPpkg.FpmakeCompilerOptions.CheckCompilerValues; FPpkg.FpmakeCompilerOptions.CheckCompilerValues;