let TTimeLogBits.Expand reset MilliSeconds field

synopse · Jun 14, 2023 · 42f36e3 · 42f36e3
1 parent 91c8bcd
commit 42f36e3
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/src/core/mormot.core.datetime.pas b/src/core/mormot.core.datetime.pas
@@ -2670,6 +2670,7 @@ procedure TTimeLogBits.Expand(out Date: TSynSystemTime);
   Date.Hour := (V shr (6 + 6)) and 31;
   Date.Minute := (V shr 6) and 63;
   Date.Second := V and 63;
+  Date.MilliSecond := 0;
 end;
 
 procedure TTimeLogBits.From(const S: RawUtf8);

diff --git a/src/crypt/mormot.crypt.secure.pas b/src/crypt/mormot.crypt.secure.pas
@@ -2122,7 +2122,7 @@   TCryptStoreAlgo = class(TCryptAlgo)
   // - could be seen as a certificates store of the poor (tm)
   // - per usage lookup is in O(1) so faster than iterative ICryptCert.GetUsage
   // - also features simple PEM / binary serialization methods
-  // - should be initialized by Clear at startup, or set as a TObject field
+  // - should be initialized by Clear at startup, or set as a class field
   {$ifdef USERECORDWITHMETHODS}
   TCryptCertPerUsage = record
   {$else}
@@ -2134,7 +2134,7 @@   TCryptCertPerUsage = record
     /// all usages currently stored in this list
     Usages: TCryptCertUsages;
     /// lookup table used by GetUsage()/PerUsage()
-    // - 0 means no certificate, or store the index in Cert[] + 1
+    // - 0 means no certificate, or store the index in List[] + 1
     Index: array[TCryptCertUsage] of byte;
     /// reset all storage and indexes
     procedure Clear;

diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.1.5557'
+'2.1.5558'