fixed warning with latest Delphi compilers

synopse · Nov 29, 2022 · 3180c24 · 3180c24
1 parent cc75d85
commit 3180c24
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/src/core/mormot.core.os.windows.inc b/src/core/mormot.core.os.windows.inc
@@ -4371,7 +4371,8 @@ type
           Size: DWORD;
           CacheType: TSystemLogicalProcessorCache;
         end);
-      RelationGroup: (Reserved: array [0..1] of QWord);
+      RelationGroup: (
+        Reserved: array [0..1] of QWord); // to define the actual struct size
   end;
   {$A+}
 
@@ -4616,8 +4617,8 @@ begin
     cpu := RawUtf8(GetEnvironmentVariable('PROCESSOR_IDENTIFIER'));
   if Assigned(GetLogicalProcessorInformation) then
   begin
-    SetLength(proc, 512);
-    siz := SizeOf(proc[0]) * 512;
+    SetLength(proc, 1024);
+    siz := SizeOf(proc[0]) * length(proc);
     if GetLogicalProcessorInformation(proc[0], @siz) then
     begin
       for i := 0 to (siz div SizeOf(proc[0])) - 1 do

diff --git a/src/core/mormot.core.text.pas b/src/core/mormot.core.text.pas
@@ -10322,7 +10322,7 @@ function MicroSecFrom(Start: QWord): TShort16;
   stop: Int64;
 begin
   QueryPerformanceMicroSeconds(stop);
-  MicroSecToString(stop - Start, result);
+  MicroSecToString(stop - Int64(Start), result);
 end;
 
 procedure By100ToTwoDigitString(value: cardinal; const valueunit: ShortString;

diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.4381'
+'2.0.4382'