Zeos 7.3 testers-thread

[WhiteWind]

I was able to compile with some modifications:

Code: Select all

Index: core/ZVariant.pas
===================================================================
--- core/ZVariant.pas	(revision 5660)
+++ core/ZVariant.pas	(working copy)
@@ -107,7 +107,7 @@
     Hour: Word;
     Minute: Word;
     Second: Word;
-    Fractions: LongWord;
+    Fractions: Cardinal;
   end;
   {** Defines a variant structure. }
   TZVariant = {$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}packed{$endif} record
Index: dbc/ZDbcASAResultSet.pas
===================================================================
--- dbc/ZDbcASAResultSet.pas	(revision 5660)
+++ dbc/ZDbcASAResultSet.pas	(working copy)
@@ -101,7 +101,7 @@
     function IsNull(ColumnIndex: Integer): Boolean; override;
     function GetBoolean(ColumnIndex: Integer): Boolean; override;
     function GetInt(ColumnIndex: Integer): Integer; override;
-    function GetUInt(ColumnIndex: Integer): LongWord; override;
+    function GetUInt(ColumnIndex: Integer): Cardinal; override;
     function GetLong(ColumnIndex: Integer): Int64; override;
     function GetULong(ColumnIndex: Integer): UInt64; override;
     function GetFloat(ColumnIndex: Integer): Single; override;
@@ -521,7 +521,7 @@
   @return the column value; if the value is SQL <code>NULL</code>, the
     value returned is <code>0</code>
 }
-function TZASAAbstractResultSet.GetUInt(ColumnIndex: Integer): LongWord;
+function TZASAAbstractResultSet.GetUInt(ColumnIndex: Integer): Cardinal;
 begin
   CheckClosed;
   LastWasNull := IsNull(ColumnIndex);
Index: dbc/ZDbcASAUtils.pas
===================================================================
--- dbc/ZDbcASAUtils.pas	(revision 5660)
+++ dbc/ZDbcASAUtils.pas	(working copy)
@@ -1005,11 +1005,11 @@
         begin
           case Self.GetFieldSqlType(Index) of
             stAsciiStream:
-              SetFieldType(TempSQLDA, 0, DT_LONGVARCHAR, Min( BlockSize, Length));
+              SetFieldType(TempSQLDA, 0, DT_LONGVARCHAR, Min( Int64(BlockSize), Int64(Length)));
             stUnicodeStream:
-              SetFieldType(TempSQLDA, 0, DT_LONGNVARCHAR, Min( BlockSize, Length));
+              SetFieldType(TempSQLDA, 0, DT_LONGNVARCHAR, Min( Int64(BlockSize), Int64(Length)));
             stBinaryStream:
-              SetFieldType(TempSQLDA, 0, DT_LONGBINARY, Min( BlockSize, Length));
+              SetFieldType(TempSQLDA, 0, DT_LONGBINARY, Min( Int64(BlockSize), Int64(Length)));
             else
               sqlType := DT_FIXCHAR;
           end;
@@ -1032,7 +1032,7 @@
             if ( sqlind^ = 0 ) or ( RD = Length) then
               break;
             Inc( Offs, PZASABlobStruct( sqlData)^.stored_len);
-            sqllen := Min( BlockSize, Length-Rd);
+            sqllen := Min( Int64(BlockSize), Int64(Length-Rd));
           end;
           if Rd <> Length then
             CreateException( 'Could''nt complete BLOB-Read');
Index: dbc/ZDbcInterbase6Utils.pas
===================================================================
--- dbc/ZDbcInterbase6Utils.pas	(revision 5660)
+++ dbc/ZDbcInterbase6Utils.pas	(working copy)
@@ -270,7 +270,7 @@
   var MemPerRow, PreparedRowsOfArray, MaxRowsPerBatch: Integer;
   var TypeTokens: TRawByteStringDynArray;
   InitialStatementType: TZIbSqlStatementType;
-  const XSQLDAMaxSize: LongWord): RawByteString;
+  const XSQLDAMaxSize: Cardinal): RawByteString;
 
 const
   { Default Interbase blob size for reading }
@@ -435,8 +435,8 @@
 
 //ported  from NoThrowTimeStamp.cpp
 
-procedure isc_decode_time(ntime: ISC_TIME; out hours, minutes, seconds: Word; out fractions: LongWord);
-procedure isc_encode_time(var ntime: ISC_TIME; hours, minutes, seconds: Word; fractions: LongWord);
+procedure isc_decode_time(ntime: ISC_TIME; out hours, minutes, seconds: Word; out fractions: Cardinal);
+procedure isc_encode_time(var ntime: ISC_TIME; hours, minutes, seconds: Word; fractions: Cardinal);
 procedure isc_decode_date(nday: ISC_DATE; out year, month, day: Word);
 procedure isc_encode_date(out nday: ISC_DATE; year, month, day: Word);
 
@@ -1971,7 +1971,7 @@
   var MemPerRow, PreparedRowsOfArray,MaxRowsPerBatch: Integer;
   var TypeTokens: TRawByteStringDynArray;
   InitialStatementType: TZIbSqlStatementType;
-  const XSQLDAMaxSize: LongWord): RawByteString;
+  const XSQLDAMaxSize: Cardinal): RawByteString;
 var
   IndexName, ArrayName: RawByteString;
   ParamIndex, J: Cardinal;
@@ -2107,8 +2107,8 @@
     end;
     Inc(SingleStmtLength, 1{;}+Length(LineEnding));
     if MaxRowsPerBatch = 0 then //calc maximum batch count if not set already
-      MaxRowsPerBatch := Min((XSQLDAMaxSize div Cardinal(MemPerRow)),     {memory limit of XSQLDA structs}
-        (((32*1024)-LBlockLen) div Cardinal(HeaderLen+SingleStmtLength)))+1; {32KB limited Also with FB3};
+      MaxRowsPerBatch := Min((XSQLDAMaxSize div Int64(MemPerRow)),     {memory limit of XSQLDA structs}
+        (((32*1024)-LBlockLen) div Int64(HeaderLen+SingleStmtLength)))+1; {32KB limited Also with FB3};
     Inc(StmtLength, HeaderLen+SingleStmtLength);
     Inc(FullHeaderLen, HeaderLen);
     //we run into XSQLDA !update! count limit of 255 see:
@@ -2150,7 +2150,7 @@
   Inc(PreparedRowsOfArray);
 end;
 
-procedure isc_decode_time(ntime: ISC_TIME; out hours, minutes, seconds: Word; out fractions: LongWord);
+procedure isc_decode_time(ntime: ISC_TIME; out hours, minutes, seconds: Word; out fractions: Cardinal);
 begin
   hours := ntime div (SecsPerHour * ISC_TIME_SECONDS_PRECISION);
   ntime := ntime mod (SecsPerHour * ISC_TIME_SECONDS_PRECISION);
@@ -2161,7 +2161,7 @@
 end;
 
 {$IFDEF FPC} {$PUSH} {$WARN 4081 off : Converting the operands to "$1" before doing the multiply could prevent overflow errors.} {$ENDIF} // overflow means error so just disable hint
-procedure isc_encode_time(var ntime: ISC_TIME; hours, minutes, seconds: Word; fractions: LongWord);
+procedure isc_encode_time(var ntime: ISC_TIME; hours, minutes, seconds: Word; fractions: Cardinal);
 begin
   ntime := ((hours * MinsPerHour + minutes) * SecsPerMin + seconds) * ISC_TIME_SECONDS_PRECISION + fractions;
 end;
Index: dbc/ZDbcODBCResultSet.pas
===================================================================
--- dbc/ZDbcODBCResultSet.pas	(revision 5660)
+++ dbc/ZDbcODBCResultSet.pas	(working copy)
@@ -133,7 +133,7 @@
     function GetUTF8String(ColumnIndex: Integer): UTF8String;
     function GetRawByteString(ColumnIndex: Integer): RawByteString;
     function GetBoolean(ColumnIndex: Integer): Boolean;
-    function GetUInt(ColumnIndex: Integer): LongWord;
+    function GetUInt(ColumnIndex: Integer): Cardinal;
     function GetInt(ColumnIndex: Integer): Integer;
     function GetULong(ColumnIndex: Integer): UInt64;
     function GetLong(ColumnIndex: Integer): Int64;
@@ -1170,7 +1170,7 @@
   end;
 end;
 
-function TAbstractODBCResultSet.GetUInt(ColumnIndex: Integer): LongWord;
+function TAbstractODBCResultSet.GetUInt(ColumnIndex: Integer): Cardinal;
 var L: LengthInt;
 begin
   if not IsNull(ColumnIndex) then
Index: dbc/ZDbcOracleUtils.pas
===================================================================
--- dbc/ZDbcOracleUtils.pas	(revision 5660)
+++ dbc/ZDbcOracleUtils.pas	(working copy)
@@ -1183,7 +1183,7 @@
         DataType := SQLT_INT;
         case DataSize of
           SizeOf(Int64):    Result := stLong;
-          SizeOf(LongInt):  Result := stInteger;
+          SizeOf(Integer):  Result := stInteger;
           SizeOf(SmallInt): Result := stSmall;
           SizeOf(ShortInt): Result := stShort;
           else begin
Index: dbc/ZDbcPostgreSqlUtils.pas
===================================================================
--- dbc/ZDbcPostgreSqlUtils.pas	(revision 5660)
+++ dbc/ZDbcPostgreSqlUtils.pas	(working copy)
@@ -139,8 +139,8 @@
 //macros from datetime.c
 function date2j(y, m, d: Integer): Integer;
 procedure j2date(jd: Integer; out AYear, AMonth, ADay: Word);
-procedure dt2time(jd: Int64; out Hour, Min, Sec: Word; out fsec: LongWord); overload;
-procedure dt2time(jd: Double; out Hour, Min, Sec: Word; out fsec: LongWord); overload;
+procedure dt2time(jd: Int64; out Hour, Min, Sec: Word; out fsec: Cardinal); overload;
+procedure dt2time(jd: Double; out Hour, Min, Sec: Word; out fsec: Cardinal); overload;
 
 procedure DateTime2PG(const Value: TDateTime; out Result: Int64); overload;
 procedure DateTime2PG(const Value: TDateTime; out Result: Double); overload;
@@ -152,11 +152,11 @@
 
 function PG2DateTime(Value: Double): TDateTime; overload;
 procedure PG2DateTime(Value: Double; out Year, Month, Day, Hour, Min, Sec: Word;
-  out fsec: LongWord); overload;
+  out fsec: Cardinal); overload;
 
 function PG2DateTime(Value: Int64): TDateTime; overload;
 procedure PG2DateTime(Value: Int64; out Year, Month, Day, Hour, Min, Sec: Word;
-  out fsec: LongWord); overload;
+  out fsec: Cardinal); overload;
 
 function PG2Time(Value: Double): TDateTime; overload;
 function PG2Time(Value: Int64): TDateTime; overload;
@@ -846,7 +846,7 @@
 
 procedure j2date(jd: Integer; out AYear, AMonth, ADay: Word);
 var
-  julian, quad, extra: LongWord;
+  julian, quad, extra: Cardinal;
   y: Integer;
 begin
   julian := jd;
@@ -893,7 +893,7 @@
 
 {$IFNDEF ENDIAN_BIG}
 procedure Reverse8Bytes(P: Pointer); {$IFDEF WITH_INLINE}inline;{$ENDIF}
-var W: LongWord;
+var W: Cardinal;
 begin
   W := PLongWord(P)^;
   PByteArray(P)[0] := PByteArray(P)[7];
@@ -939,7 +939,7 @@
 function PG2DateTime(Value: Double): TDateTime;
 var date: TDateTime;
   Year, Month, Day, Hour, Min, Sec: Word;
-  fsec: LongWord;
+  fsec: Cardinal;
 begin
   PG2DateTime(Value, Year, Month, Day, Hour, Min, Sec, fsec);
   TryEncodeDate(Year, Month, Day, date);
@@ -949,7 +949,7 @@
 end;
 
 procedure PG2DateTime(value: Double; out Year, Month, Day, Hour, Min, Sec: Word;
-  out fsec: LongWord);
+  out fsec: Cardinal);
 var
   date: Double;
   time: Double;
@@ -975,7 +975,7 @@
 function PG2DateTime(Value: Int64): TDateTime;
 var date: TDateTime;
   Year, Month, Day, Hour, Min, Sec: Word;
-  fsec: LongWord;
+  fsec: Cardinal;
 begin
   PG2DateTime(Value, Year, Month, Day, Hour, Min, Sec, fsec);
   if not TryEncodeDate(Year, Month, Day, date) then
@@ -986,7 +986,7 @@
 end;
 
 procedure PG2DateTime(Value: Int64; out Year, Month, Day, Hour, Min, Sec: Word;
-  out fsec: LongWord);
+  out fsec: Cardinal);
 var date: Int64;
 begin
   {$IFNDEF ENDIAN_BIG}
@@ -1003,7 +1003,7 @@
   dt2time(Value, Hour, Min, Sec, fsec);
 end;
 
-procedure dt2time(jd: Int64; out Hour, Min, Sec: Word; out fsec: LongWord);
+procedure dt2time(jd: Int64; out Hour, Min, Sec: Word; out fsec: Cardinal);
 begin
   Hour := jd div USECS_PER_HOUR;
   jd := jd - Int64(Hour) * Int64(USECS_PER_HOUR);
@@ -1013,7 +1013,7 @@
   Fsec := jd - (Int64(Sec) * Int64(USECS_PER_SEC));
 end;
 
-procedure dt2time(jd: Double; out Hour, Min, Sec: Word; out fsec: LongWord);
+procedure dt2time(jd: Double; out Hour, Min, Sec: Word; out fsec: Cardinal);
 begin
   Hour := Trunc(jd / SECS_PER_HOUR);
   jd := jd - Hour * SECS_PER_HOUR;
@@ -1045,7 +1045,7 @@
 end;
 
 function PG2Time(Value: Double): TDateTime;
-var Hour, Min, Sec: Word; fsec: LongWord;
+var Hour, Min, Sec: Word; fsec: Cardinal;
 begin
   {$IFNDEF ENDIAN_BIG}
   Reverse8Bytes(@Value);
@@ -1056,7 +1056,7 @@
 end;
 
 function PG2Time(Value: Int64): TDateTime;
-var Hour, Min, Sec: Word; fsec: LongWord;
+var Hour, Min, Sec: Word; fsec: Cardinal;
 begin
   {$IFNDEF ENDIAN_BIG}
   Reverse8Bytes(@Value);

LongWord has different size depending on platform and my Delphi 10.2.3 was complaining that declarations of proceduress in interface and implementation was different, when type LongWord was used.

Another bug was abmigitious overload of Min function - I had to explicitly define type of args.

[marsupilami]

Why no one tried to compile with Delphi Tokyo/Rio for Linux?

Hello WhiteWind,

the problem here is that the Linux compiler is not available with the Professional editions of Delphi but requires more expensive versions. I am currently having a Jenkins instance build Zeos with FPC and some Versions of Delphi. Some of these builds are tested using our test suites. E-Mails get sent as soon as something happens. If you want to do the same for the Linux compiler I will be happy to provide you with information.

Best regards,

Jan

[ertank]

Hello,

PROBLEM 1:
I am using Lazarus 2.0.3 from fixes_2_0 branch, fpc 3.2-beta from fixes_3_2 branch, zeos from revision 5696. Platform is Raspberry Pi, Database is PostgreSQL 9.6.

PostgreSQL has several different definitions for timestamp fields. Mostly they are defined as "timestamp without time zone" or similar. My decleration is slightly different "timestamp(0) without time zone" that assures no milliseconds are saved even if parameter includes them at the database level.

I have a problem of TZQuery not able to read such defined fields. When I do "select * from test" I get error message saying "field date2 not found"

However, there is date2 and its type is timestamp(0) without time zone.

That problem is new. I was able to use same definitions with 7.2 (I cannot remember revision number).

There is no problem reading columns defined without using "(0)" in it.

I confirm revision 5670 also have same problem.


PROBLEM 2:
Latest SVN version 5696 cannot be compiled for Lazarus under linux. I get

Code: Select all

zdbc.pas(20,14) Fatal: Cannot find ZDbcOleDBMetadata used by zdbc, incompatible ppu=/home/pi/fpcupdeluxe/ccr/zeos/packages/lazarus/lib/zdbc/arm-linux/ZDbcOleDBMetaData.ppu, package zdbc

I confirm revision 5670 compiles OK.

Thanks & regards,
Ertan

[WhiteWind]

If you want to do the same for the Linux compiler I will be happy to provide you with information.

You mean set up Jenkins for testing Zeos? Ok, please tell me how

[marsupilami]

Hello WhiteWind,

I started out using Hudson as the build server. The documentation on how I started out can be found here: https://sourceforge.net/p/zeoslib/wiki/Setting%20up%20Hudson%20as%20a%20build%20server%20for%20Zeos/. I probably will have to rework it to fit to my current setup. But maybe it is a better starting point than no documentation at all

Some things will most probably not work on Linux:

1. On Windows I can use msbuild to build packages and projects. On Linux other ways will need to be used and I don't know which ones will work for Delphi on Linux.
2. I am not sure wether it is possible to build the ZTestAll project on Linux. It is based on an old version of DUnit and inclues console based test runners by default as well as a gui based test runner. It might be necessary to not build ZTestAll but to build the packages to see how compilation works. Running the test suites under Linux wouold be grat but I doubt it is possible without much work currently.

If you have any question just let me know. As soon as I get the wiki page changed, I will let you know.

Best regards,

Jan

[marsupilami]

Hello Ertan,

I created two tickets on the bug tracker:

• PROBLEM 1: https://sourceforge.net/p/zeoslib/tickets/354/ -> If you want to venture into the depths of Zeos again i will be happy to assist you in finding and fixing that bug.
• PROBLEM 2: https://sourceforge.net/p/zeoslib/tickets/355/ -> Why do you use FPC3.2? Can you check easily if this also happens on FPC 3.0?

can we move the discussion of these problems to the bug tracker?

Best regards,

Jan

[WhiteWind]

On Windows I can use msbuild to build packages and projects. On Linux other ways will need to be used and I don't know which ones will work for Delphi on Linux.

Linux compiler run on windows, so there should be no problems.

I am not sure wether it is possible to build the ZTestAll project on Linux. It is based on an old version of DUnit and inclues console based test runners by default as well as a gui based test runner.

"Console" is the only app type available for linux, so there are great chances to run tests.

I will try to setup Hudson

[marsupilami]

I will try to setup Hudson

I suggest to use Jenkins. Hudson seems to be dead by now. Jenkins is a fork. The configuration is similar enough though.

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5713:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 for Raspberry Pi (in ZEncoding.pas I had to add a Math unit because fpc did not find the Min function),
- Lazarus 2.0.2-Win32,
- Lazarus 2.0.2-Win64,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,
- Delphi 10.3.1 Rio-Win32/Win64/(Android-It requires a thorough test).

mORMot PerfTest passes(Delphi Win32/Win64)

Michal

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5738:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 for Raspberry Pi,
- Lazarus 2.0.2-Win32,
- Lazarus 2.0.2-Win64,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,
- Delphi 10.3.1 Rio-Win32/Win64/(Android-It requires a thorough test).

mORMot PerfTest passes(Delphi Win32/Win64)

Michal

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5742:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 for Raspberry Pi https://www.getlazarus.org/setup/?download#raspberry_pi,
- Lazarus 2.0.2-Win32,
- Lazarus 2.0.2-Win64,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,

- Delphi 10.3.1 Rio-Win32/Win64/(Android-It requires a thorough test).
fix: ZDbcODBCStatement.pas 2410: const StoredProcOrFuncIdentifier: string; {$IFDEF AUTOREFCOUNT}const{$ENDIF}Info: TStrings);

mORMot PerfTest passes(Delphi Win32/Win64)

Michal

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5744:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 Buster for Raspberry Pi https://www.getlazarus.org/setup/?download#raspberry_pi,
- Lazarus 2.0.2-Win32,
- Lazarus 2.0.2-Win64,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,

- Delphi 10.3.1 Rio-Win32/Win64/(Android-It requires a thorough test).
fix: ZDbcODBCStatement.pas 2410: const StoredProcOrFuncIdentifier: string; {$IFDEF AUTOREFCOUNT}const{$ENDIF}Info: TStrings);

mORMot PerfTest passes(Delphi Win32/Win64)

Michal

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5752:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 Buster for Raspberry Pi https://www.getlazarus.org/setup/?download#raspberry_pi,
- Lazarus 2.0.2-Win32,
- Lazarus 2.0.2-Win64,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,
- Delphi 10.3.1 Rio-Win32/Win64/(Android-It requires a thorough test).

mORMot PerfTest passes(Delphi Win32/Win64)

Michal

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5781:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 Buster for Raspberry Pi https://www.getlazarus.org/setup/?download#raspberry_pi,
- Lazarus 2.0.2-Win32,
- Lazarus 2.0.2-Win64,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,
- Delphi 10.3.2 Rio-Win32/Win64/(Android-It requires a thorough test).

mORMot PerfTest passes(Delphi Win32/Win64)

Michal

[miab3]

@EgonHugeist, @Jan, @Fr0sT, @mdaems, All

ZEOS 7.3.x svn 5828:
http://sourceforge.net/p/zeoslib/code-0 ... sting-7.3/

Compiles:

- Lazarus 2.0.0(fpc 3.3.1) - Raspbian32 Buster for Raspberry Pi https://www.getlazarus.org/setup/?download#raspberry_pi,
- Lazarus 2.0.4-Win32,
- Lazarus 2.0.2-Win64,
- Lazarus 2.0.4-Win64,
- Delphi 2006-Win32,
- RAD Studio 2007-Win32/C++32 with small hpp fixes,
- RAD Studio XE2 -Win32/Win64/C++32 with small hpp fixes/(OSX32-It requires a thorough test),
- Delphi 10 Seattle-Win32/Win64,
- Delphi 10.3.2 Rio-Win32/Win64/(Android-It requires a thorough test).

mORMot PerfTest passes(Delphi Win32/Win64)

Michal