let TTimeLogBits.Expand reset MilliSeconds field

Author: Arnaud Bouchez

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);

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;

src/mormot.commit.inc

@@ -1 +1 @@
-'2.1.5557'
+'2.1.5558'