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

LazBuild: Fix Access Violation when processing --add-package. Issue #40343, patch by Dean Mustakinov.

Browse Source
This commit is contained in:
Juha 2023-06-22 12:19:21 +03:00
parent 1d6009e63c
commit b5fb939257
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packager/fppkghelper.pas
View File

@ -9,6 +9,7 @@ uses
SysUtils, SysUtils,
{$IF FPC_FULLVERSION>30100} {$IF FPC_FULLVERSION>30100}
pkgFppkg, pkgFppkg,
fpmkunit,
fprepos, fprepos,
LazarusIDEStrConsts, LazarusIDEStrConsts,
{$ENDIF} {$ENDIF}
@ -70,6 +71,9 @@ begin
FPpkg := TpkgFPpkg.Create(nil); FPpkg := TpkgFPpkg.Create(nil);
try try
try try
if not Assigned(Defaults) then
Defaults := TBasicDefaults.Create;
FPpkg.InitializeGlobalOptions(FOverrideConfigurationFilename); FPpkg.InitializeGlobalOptions(FOverrideConfigurationFilename);
FPpkg.InitializeCompilerOptions; FPpkg.InitializeCompilerOptions;