Compilation with FPC on Windows and Linux

jcl/Install.txt

@@ -2,6 +2,10 @@ JEDI Code Library v 2.7 Installation
 
 Supported development tools versions:
 
+- Delphi 12 (Win32 and Win64) and C++Builder 12 (Win32 and Win64)
+- Delphi 11 (Win32 and Win64) and C++Builder 11 (Win32 and Win64)
+- Delphi 10.4 (Win32 and Win64) and C++Builder 10.4 (Win32 and Win64)
+- Delphi 10.3 (Win32 and Win64) and C++Builder 10.3 (Win32 and Win64)
 - Delphi 10.2 (Win32 and Win64) and C++Builder 10.2 (Win32 and Win64)
 - Delphi 10.1 (Win32 and Win64) and C++Builder 10.1 (Win32 and Win64)
 - Delphi 10 (Win32 and Win64) and C++Builder 10 (Win32 and Win64)
@@ -72,4 +76,4 @@ To execute for
         >install d6
 
 --------------------------------
-Document last updated 2017-03-31
+Document last updated 2023-09-02

jcl/devtools/included_files.bat

@@ -31,6 +31,14 @@ copy ..\source\include\jcl.template.inc ..\source\include\jcld24win32.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld24win64.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld25win32.inc
 copy ..\source\include\jcl.template.inc ..\source\include\jcld25win64.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld26win32.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld26win64.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld27win32.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld27win64.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld28win32.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld28win64.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld29win32.inc
+copy ..\source\include\jcl.template.inc ..\source\include\jcld29win64.inc
 
 
 copy ..\source\include\jcl.template.inc ..\source\include\jclfpc.inc

jcl/devtools/included_files.sh

@@ -33,6 +33,14 @@ cp ../source/include/jcl.template.inc ../source/include/jcld24win32.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld24win64.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld25win32.inc
 cp ../source/include/jcl.template.inc ../source/include/jcld25win64.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld26win32.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld26win64.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld27win32.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld27win64.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld28win32.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld28win64.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld29win32.inc
+cp ../source/include/jcl.template.inc ../source/include/jcld29win64.inc
 
 
 cp ../source/include/jcl.template.inc ../source/include/jclfpc.inc

jcl/devtools/jpp/jpp.dof

@@ -1,4 +1,4 @@
 [Directories]
 OutputDir=..
 UsePackages=0
-SearchPath=..\..\source\include
+SearchPath=..\..\source\include;..\..\source\common;..\..\source\windows

jcl/devtools/jpp/jppContainers.dof

@@ -1,4 +1,4 @@
 [Directories]
 OutputDir=..
 UsePackages=0
-SearchPath=..\..\source\include
+SearchPath=..\..\source\include;..\..\source\common;..\..\source\windows

jcl/devtools/jpp/jppExceptionDialogs.dof

@@ -1,4 +1,4 @@
 [Directories]
 OutputDir=..
 UsePackages=0
-SearchPath=..\..\source\include
+SearchPath=..\..\source\include;..\..\source\common;..\..\source\windows

jcl/devtools/pgEdit.xml

@@ -1,7 +1,24 @@
 <?xml version="1.0" encoding="iso-8859-1" standalone="no"?>
 <Configuration>
   <!-- These are the values stored by jaxStore -->
-  <pgEdit/>
+  <pgEdit>
+    <FormVersion>0</FormVersion>
+    <ShowCmd>1</ShowCmd>
+    <Flags>0</Flags>
+    <PixelsPerInch>96</PixelsPerInch>
+    <MinMaxPos_2960x1050_>-1,-1,-1,-1</MinMaxPos_2960x1050_>
+    <MinMaxPos>-1,-1,-1,-1</MinMaxPos>
+    <NormPos_2960x1050_>428,199,1251,820</NormPos_2960x1050_>
+    <NormPos>428,199,1251,820</NormPos>
+    <pnlList_Width>137</pnlList_Width>
+    <jsgDependencies_Height>129</jsgDependencies_Height>
+    <pnlEdit_Width>668</pnlEdit_Width>
+    <jsgFiles_Height>168</jsgFiles_Height>
+    <odlAddFiles_InitialDir>..\..\run</odlAddFiles_InitialDir>
+    <cmbModel_ItemIndex>-1</cmbModel_ItemIndex>
+    <MinMaxPos_3840x1080_>-1,-1,-1,-1</MinMaxPos_3840x1080_>
+    <NormPos_3840x1080_>428,199,1251,820</NormPos_3840x1080_>
+  </pgEdit>
   <!--
     The nodes below are read by the generation process.
     Packages are generated according to a model. The models are defined
@@ -84,28 +101,32 @@
         <target name="d23" defines="BCB" IsBds="1"/>
         <target name="d24" defines="BCB" IsBds="1"/>
         <target name="d25" defines="BCB" IsBds="1"/>
+        <target name="d26" defines="BCB" IsBds="1"/>
+        <target name="d27" defines="BCB" IsBds="1"/>
+        <target name="d28" defines="BCB" IsBds="1"/>
+        <target name="d29" defines="BCB" IsBds="1"/>
       </targets>
       <aliases>
         <!-- language aliases -->
-        <alias name="Delphi" value="d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
-        <alias name="Bcb" value="c6,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
-        <alias name="Pascal" value="fpc,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
+        <alias name="Delphi" value="d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
+        <alias name="Bcb" value="c6,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
+        <alias name="Pascal" value="fpc,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
         <!-- platform aliases -->
-        <alias name="Windows" value="help,fpc,c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
+        <alias name="Windows" value="help,fpc,c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
         <alias name="Linux" value="help,fpc"/>
         <!-- package aliases -->
-        <alias name="allv11up" value="d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
-        <alias name="allv14up" value="d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
-        <alias name="allv15up" value="d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
+        <alias name="allv11up" value="d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
+        <alias name="allv14up" value="d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
+        <alias name="allv15up" value="d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
         <!-- GUI aliases -->
         <alias name="Clx" value="help,c6,d6,d7"/>
-        <alias name="Vcl" value="help,c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
+        <alias name="Vcl" value="help,c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
         <!-- IDE aliases -->
-        <alias name="BDS" value="cs1,d8,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
-        <alias name="runtimeBDS" value="d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
+        <alias name="BDS" value="cs1,d8,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
+        <alias name="runtimeBDS" value="d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
         <alias name="OldStyleIDE" value="c6,d6,d7"/>
-        <alias name="runtimeIDE" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
-        <alias name="designtimeIDE" value="c6,d6,d7,d8,d9,d10,cs1,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25"/>
+        <alias name="runtimeIDE" value="c6,d6,d7,d9,d10,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
+        <alias name="designtimeIDE" value="c6,d6,d7,d8,d9,d10,cs1,d11,d12,d14,d15,d16,d17,d18,d19,d20,d21,d22,d23,d24,d25,d26,d27,d28,d29"/>
       </aliases>
       <ProjectProperties>
         <ProjectProperty name="VersionMajorNumber" value="2"/>

jcl/docs/Readme.html

@@ -111,7 +111,7 @@ <h3><a name="about">About this release</a></h3>
 
 <p>For BDS 2006, RAD Studio 2007, RAD Studio 2009, RAD Studio 2010, RAD Studio XE, RAD Studio XE2, 
 RAD Studio XE3, RAD Studio XE4, RAD Studio XE5, RAD Studio XE6, RAD Studio XE7, RAD Studio XE8, 
-RAD Studio 10, RAD Studio 10.1, and RAD Studio 10.2 the
+RAD Studio 10, RAD Studio 10.1, RAD Studio 10.2, RAD Studio 10.3, RAD Studio 10.4, RAD Studio 11 and RAD Studio 12 the
 compiler introduced a new option to make the same packages available in C++,
 by checking the "Dual packages" option of the "Packages" node, you will be able
 to call functions of the JCL from C++ code.</p>
@@ -183,6 +183,14 @@ <h3><a name="targets">Supported Tools</a></h3>
 
   <li>Delphi 10.2 and C++Builder 10.2.</li>  
 
+  <li>Delphi 10.3 and C++Builder 10.3.</li>  
+
+  <li>Delphi 10.4 and C++Builder 10.4.</li>
+
+  <li>Delphi 11 and C++Builder 11.</li>
+
+  <li>Delphi 12 and C++Builder 12.</li>
+
 </ul>
 
 <hr><br>
@@ -318,6 +326,22 @@ <h3><a name="manual">Manual Installation</a></h3>
 
     <li>For Delphi 10.2 and C++Builder 10.2 Win64: source\include\jcld25win64.inc</li>
 
+    <li>For Delphi 10.3 and C++Builder 10.3 Win32: source\include\jcld26win32.inc</li>
+
+    <li>For Delphi 10.3 and C++Builder 10.3 Win64: source\include\jcld26win64.inc</li>
+
+    <li>For Delphi 10.4 and C++Builder 10.4 Win32: source\include\jcld27win32.inc</li>
+
+    <li>For Delphi 10.4 and C++Builder 10.4 Win64: source\include\jcld27win64.inc</li>
+
+    <li>For Delphi 11 and C++Builder 11 Win32: source\include\jcld28win32.inc</li>
+
+    <li>For Delphi 11 and C++Builder 11 Win64: source\include\jcld28win64.inc</li>
+
+    <li>For Delphi 12 and C++Builder 12 Win32: source\include\jcld29win32.inc</li>
+
+    <li>For Delphi 12 and C++Builder 12 Win64: source\include\jcld29win64.inc</li>
+
     <li>For FreePascal: source\include\jclfpc.inc</li>
   </ul>
 

jcl/docs/Readme.txt

@@ -26,7 +26,7 @@ Getting involved in JCL development
 
 
 About this release
-JCL release 2.9 provides support for RAD Studio 11 (including Delphi and C++Builder) an updated support for all targets.
+JCL release 2.9 provides support for RAD Studio 12 (including Delphi and C++Builder) an updated support for all targets.
 
 Multiple bugs have been fixed; for detailed change logs, use the facilities of our Subversion repository at Sourceforge.net  http://sourceforge.net/projects/jcl/ , see below.
 
@@ -64,7 +64,7 @@ The JEDI Code Library packages are required by some 3rd party packages (includin
 
 The installer can generate MAP informations for each package. These informations can be linked into binaries to become JCL debug data or be converted to .jdbg files. Once linked MAP files could be deleted. These options are subnodes of the "Packages" node.
 
-For BDS 2006, RAD Studio 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10, 10.1 and 10.2 the compiler introduced a new option to make the same packages available in C++, by checking the "Dual packages" option of the "Packages" node, you will be able to call functions of the JCL from C++ code.
+For BDS 2006, RAD Studio 2007, 2009, 2010, XE, XE2, XE3, XE4, XE5, XE6, XE7, XE8, 10, 10.1, 10.2, 10.3, 10.4, 11 and 12 the compiler introduced a new option to make the same packages available in C++, by checking the "Dual packages" option of the "Packages" node, you will be able to call functions of the JCL from C++ code.
 
 
 --------------------------------------------------------------------------------
@@ -101,6 +101,10 @@ Delphi XE8 and C++Builder XE8.
 Delphi 10 and C++Builder 10.
 Delphi 10.1 and C++Builder 10.1.
 Delphi 10.2 and C++Builder 10.2.
+Delphi 10.3 and C++Builder 10.3.
+Delphi 10.4 and C++Builder 10.4.
+Delphi 11 and C++Builder 11.
+Delphi 12 and C++Builder 12.
 
 --------------------------------------------------------------------------------
 
@@ -165,6 +169,14 @@ For Delphi 10.1 and C++Builder 10.1 Win32: source\include\jcld24win32.inc
 For Delphi 10.1 and C++Builder 10.1 Win64: source\include\jcld24win64.inc 
 For Delphi 10.2 and C++Builder 10.2 Win32: source\include\jcld25win32.inc 
 For Delphi 10.2 and C++Builder 10.2 Win64: source\include\jcld25win64.inc 
+For Delphi 10.3 and C++Builder 10.3 Win32: source\include\jcld26win32.inc 
+For Delphi 10.3 and C++Builder 10.3 Win64: source\include\jcld26win64.inc 
+For Delphi 10.4 and C++Builder 10.4 Win32: source\include\jcld27win32.inc 
+For Delphi 10.4 and C++Builder 10.4 Win64: source\include\jcld27win64.inc 
+For Delphi 11 and C++Builder 11 Win32: source\include\jcld28win32.inc 
+For Delphi 11 and C++Builder 11 Win64: source\include\jcld28win64.inc 
+For Delphi 12 and C++Builder 12 Win32: source\include\jcld29win32.inc 
+For Delphi 12 and C++Builder 12 Win64: source\include\jcld29win64.inc 
 For FreePascal: source\include\jclfpc.inc 
 In the IDE, open and compile package Jcl.dpk (or Jcl.bpk for C++Builder) located in a subdirectory of the "packages" directory matching your version of the IDE. This package doesn't have to be installed since it doesn't provide any components. 
 If you want to install experts, open package JclBaseExpert.dpk and compile it, then you can install all the experts you want (packages are located in the same directory). 

jcl/examples/common/filesearch/FileSearchDemoMain.pas

@@ -88,10 +88,10 @@ procedure TFileSearchForm.FormCreate(Sender: TObject);
   {$IFDEF MSWINDOWS}
   cbSymLink.Visible := False;
   {$ENDIF MSWINDOWS}
-  {$IFDEF UNIX}
+  {$IFDEF LINUX}
   FileList.Columns.Add.Caption := 'Link';
   cbArchive.Visible := False;
-  {$ENDIF UNIX}
+  {$ENDIF LINUX}
 end;
 
 procedure TFileSearchForm.FormDestroy(Sender: TObject);
@@ -129,10 +129,10 @@ procedure TFileSearchForm.AddFile(const Directory: string; const FileInfo: TSear
     {$ENDIF ~RTL230_UP}
     SubItems.Add(FormatDateTime(' yyyy-mm-dd hh:nn:ss ', FileDateTime));
     SubItems.Add(FileAttributesStr(FileInfo));
-    {$IFDEF UNIX}
+    {$IFDEF LINUX}
     if (FileInfo.Attr and faSymLink) <> 0 then
       SubItems.Add(SymbolicLinkTarget(Caption));
-    {$ENDIF UNIX}
+    {$ENDIF LINUX}
     SubItems.Add(FileGetOwnerName(Caption));
     SubItems.Add(FileGetGroupName(Caption));
   end;
@@ -216,9 +216,9 @@ procedure TFileSearchForm.cbFileAttributeClick(Sender: TObject);
     cbSystem.State := CBState[System];
     cbDirectory.State := CBState[Directory];
     cbNormal.State := CBState[Normal];
-{$IFDEF UNIX}
+{$IFDEF LINUX}
     cbSymLink.State := CBState[SymLink];
-{$ENDIF def UNIX}
+{$ENDIF LINUX}
 {$IFDEF MSWINDOWS}
     cbArchive.State := CBState[Archive];
 {$ENDIF def MSWINDOWS}

jcl/examples/common/graphics/StretchGraphicDemoMain.pas

@@ -89,7 +89,7 @@   TStretchDemoForm = class(TForm)
     FDir: string;
     FWidth: Integer;
     FHeight: Integer;
-    FStretchTime: LongWord;
+    FStretchTime: FixedUInt;
     FPreserveAspectRatio: Boolean;
     FResamplingFilter: TResamplingFilter;
     procedure AddToFileList(const Directory: string; const FileInfo: TSearchRec);
@@ -314,7 +314,7 @@ procedure TStretchDemoForm.SelectFilter(Sender: TObject);
 procedure TStretchDemoForm.DoStretch;
 var
   W, H: Integer;
-  T: LongWord;
+  T: FixedUInt;
 begin
   with OriginalImage.Picture do
     if (Graphic = nil) {$IFDEF VCL} or (Graphic is TMetafile) {$ENDIF} then

jcl/experts/debug/converter/JclDebugIdeImpl.pas

@@ -318,7 +318,8 @@ procedure TJclDebugExtension.AfterCompile(const Project: IOTAProject; Succeeded:
   end;
 
 begin
-  if JclDisablePostCompilationProcess or (Project = nil) then
+  // There are no ProjectOptions if we have a Language Ressouce DLL project (Mantis #5740)
+  if JclDisablePostCompilationProcess or (Project = nil) or (Project.ProjectOptions = nil) then
     Exit;
 
   OTAMessageServices := GetOTAMessageServices;
@@ -605,6 +606,10 @@ procedure TJclDebugExtension.DisplayResults;
 begin
   if FBuildError or (Length(FResultInfo) = 0) then
     Exit;
+
+  if Assigned(Settings) and (Settings.LoadBool(JclDebugQuietSetting, false)) then
+    Exit;
+
   with TJclDebugResultForm.Create(Application, Settings) do
   try
     for I := 0 to Length(FResultInfo) - 1 do

jcl/experts/debug/simdview/JclSIMDUtils.pas

@@ -941,7 +941,7 @@ function GetThreadJclContext(AThread: IOTAThread; out JclContext: TJclContext):
     try
       if (TJclAddr(ContextMemory) and 15) <> 0 then
         // PAnsiChar: TJclAddr is signed and would cause an int overflow for half the address space
-        AlignedContext := PContext(TJclAddr(PAnsiChar(ContextMemory) + 16) and -16)
+        AlignedContext := PJclContext(TJclAddr(PAnsiChar(ContextMemory) + 16) and -16)
       else
         AlignedContext := ContextMemory;
       AlignedContext^.ScalarContext.ContextFlags := CONTEXT_EXTENDED_REGISTERS;

jcl/experts/debug/simdview/JclSIMDView.pas

@@ -112,8 +112,12 @@   TJclDebuggerNotifier = class(TNotifierObject,IOTADebuggerNotifier,
     procedure ProcessModuleDestroyed({$IFDEF RTL170_UP} const {$ENDIF} ProcessModule: IOTAProcessModule);
     // IOTAThreadNotifier
     procedure ThreadNotify(Reason: TOTANotifyReason);
+    {$IFNDEF RTL340_UP}
     procedure EvaluteComplete(const ExprStr, ResultStr: string;
       CanModify: Boolean; ResultAddress, ResultSize: LongWord; ReturnCode: Integer);
+    {$ENDIF ~RTL340_UP}
+    procedure EvaluateComplete(const ExprStr, ResultStr: string;
+      CanModify: Boolean; ResultAddress, ResultSize: LongWord; ReturnCode: Integer);
     procedure ModifyComplete(const ExprStr, ResultStr: string; ReturnCode: Integer);
     property Owner: TJclSIMDWizard read FOwner;
   end;
@@ -456,8 +460,16 @@ procedure TJclDebuggerNotifier.BreakpointDeleted({$IFDEF RTL170_UP} const {$ENDI
 
 end;
 
+{$IFNDEF RTL340_UP}
 procedure TJclDebuggerNotifier.EvaluteComplete(const ExprStr, ResultStr: string;
   CanModify: Boolean; ResultAddress, ResultSize: LongWord; ReturnCode: Integer);
+begin
+  EvaluateComplete(ExprStr, ResultStr, CanModify, ResultAddress, ResultSize, ReturnCode);
+end;
+{$ENDIF ~RTL340_UP}
+
+procedure TJclDebuggerNotifier.EvaluateComplete(const ExprStr, ResultStr: string;
+  CanModify: Boolean; ResultAddress, ResultSize: LongWord; ReturnCode: Integer);
 begin
   try
     Owner.ThreadEvaluate(ExprStr, ResultStr, ReturnCode);

jcl/install/JclInstall.pas

@@ -1711,7 +1711,10 @@ function TJclInstallation.Install: Boolean;
           Target.BCC.Options.Add('-fno-spell-checking');
           Target.BCC.Options.Add('-fno-use-cxa-atexit');
           Target.BCC.Options.Add('-x c++');
-          Target.BCC.Options.Add('-std=c++11');
+          if Target.IDEVersionNumber >= 20 then
+            Target.BCC.Options.Add('-std=c++17')
+          else
+            Target.BCC.Options.Add('-std=c++11');
           Target.BCC.Options.Add('-O0');
           Target.BCC.Options.Add('-tC');
           Target.BCC.Options.Add('-tM');
@@ -3331,7 +3334,7 @@ function TJclDistribution.CreateInstall(Target: TJclBorRADToolInstallation): Boo
         Result := Target.VersionNumber in [6];
       brBorlandDevStudio :
         Result := ((Target.VersionNumber in [1, 2]) and (bpDelphi32 in Target.Personalities))
-          or (Target.VersionNumber in [3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19]);
+          or (Target.VersionNumber in [3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23]);
       else
         Result := False;
     end;

jcl/install/JediProfiles.pas

@@ -158,11 +158,11 @@ function TJediProfilesManager.CheckPrerequisites: Boolean;
   if FMultipleProfileMode and Result then
     LoadProfiles;
   {$ENDIF MSWINDOWS}
-  {$IFDEF UNIX}
+  {$IFDEF LINUX}
   // don't know how to enumerate profiles on Linux
   Result := not FMultipleProfileMode;
   FMultipleProfileMode := False;
-  {$ENDIF UNIX}
+  {$ENDIF LINUX}
 end;
 
 function TJediProfilesManager.GetMultipleProfileMode: Boolean;