fixed compilation of some DB units if PUREMORMOT2 is defined

synopse · Jan 23, 2022 · d5d171d · d5d171d
1 parent 172d789
commit d5d171d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/db/mormot.db.sql.ibx.pas b/src/db/mormot.db.sql.ibx.pas
@@ -430,7 +430,7 @@ procedure TSqlDBIbxStatement.Prepare(const aSQL: RawUtf8; ExpectResults: boolean
   fStatement.SetStaleReferenceChecks(false);
   fStatement.SetRetainInterfaces(true);
   fColumnCount := 0;
-  fColumn.ReHash;
+  fColumn.ForceReHash;
   if ExpectResults then
   begin
     fMeta := fStatement.GetMetaData;

diff --git a/src/db/mormot.db.sql.zeos.pas b/src/db/mormot.db.sql.zeos.pas
@@ -1137,7 +1137,7 @@ procedure TSqlDBZeosStatement.ExecutePrepared;
     if fExpectResults then
     begin
       fColumnCount := 0;
-      fColumn.ReHash;
+      fColumn.ForceReHash;
       fCurrentRow := -1;
       fResultSet := fStatement.ExecuteQueryPrepared;
       if fResultSet = nil then