paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 22:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Try all OS/CPU combinations

Browse Source 
git-svn-id: trunk@47611 -
This commit is contained in:
michael 2020-11-27 17:16:20 +00:00
parent c7383e54cf
commit b0cbff6463
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fpmkunit/src/fpmkunit.pp
View File

@ -4268,12 +4268,20 @@ Var
SL : TStringList; SL : TStringList;
L : TUnsortedDuplicatesStringList; L : TUnsortedDuplicatesStringList;
I : Integer; I : Integer;
iCPU : TCPU;
iOS : TOS;
begin begin
GPathPrefix:=P.Directory; GPathPrefix:=P.Directory;
AddPackageMacrosToDictionary(P,P.Dictionary); AddPackageMacrosToDictionary(P,P.Dictionary);
// First target OS
ResolveFileNames(P,Defaults.CPU,Defaults.OS,False,True); ResolveFileNames(P,Defaults.CPU,Defaults.OS,False,True);
// Then other OSes
for ICPU:=Low(TCPU) to high(TCPU) do
for IOS:=Low(TOS) to high(TOS) do
if (IOS<>Defaults.OS) or (iCPU<>Defaults.CPU) then
if OSCPUSupported[IOS,ICPU] then
ResolveFileNames(P,ICPU,IOS,false);
AddLn('<package name="%s" output="" content="%s.xct">',[quotexml(P.Name),quotexml(P.Name)]); AddLn('<package name="%s" output="" content="%s.xct">',[quotexml(P.Name),quotexml(P.Name)]);
Addln(' <units>'); Addln(' <units>');
SL:=TStringList.Create; SL:=TStringList.Create;