From 42f36e347084e470ec5244f09fa3ae2245d8b1e4 Mon Sep 17 00:00:00 2001
From: Arnaud Bouchez <ab@synopse.info>
Date: Wed, 14 Jun 2023 09:36:40 +0200
Subject: [PATCH] let TTimeLogBits.Expand reset MilliSeconds field

---
 src/core/mormot.core.datetime.pas | 1 +
 src/crypt/mormot.crypt.secure.pas | 4 ++--
 src/mormot.commit.inc             | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/core/mormot.core.datetime.pas b/src/core/mormot.core.datetime.pas
index bfa5d635e..9ec49931c 100644
--- 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
index dc11e249a..2425af50d 100644
--- 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
index 7b6af94dc..501a52ae3 100644
--- a/src/mormot.commit.inc
+++ b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.1.5557'
+'2.1.5558'