paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 14:49:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Applied patch from Vincent Snijders

Browse Source 
git-svn-id: trunk@4732 -
This commit is contained in:
marc 2003-10-24 21:34:36 +00:00
parent 9077473f14
commit 6526725baa
1 changed files with 6 additions and 2 deletions

8
packager/pkgmanager.pas
View File

@ -2591,8 +2591,12 @@ begin
// get all usage options
AddOptionsList:=GetUsageOptionsList(PkgList);
PkgList.Free;
// combine options of same type
GatherInheritedOptions(AddOptionsList,InheritedOptionStrings);
if AddOptionsList<>nil then begin
// combine options of same type
GatherInheritedOptions(AddOptionsList,InheritedOptionStrings);
AddOptionsList.Free;
end;
// convert options to compiler parameters
Result:=InheritedOptionsToCompilerParameters(InheritedOptionStrings,[]);