paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:42:28 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packager/pkgmanager.pas
View File

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