all: fixed compilation after previous TSynLog commit

Author: Arnaud Bouchez

src/mormot.commit.inc

@@ -1 +1 @@
-'2.3.10794'
+'2.3.10795'

src/net/mormot.net.async.pas

@@ -276,7 +276,7 @@   TPollAsyncSockets = class
     fOnFirstRead, fOnStop: TOnPollAsyncProc;
     fWaitingWrite: TPollAsyncConnections; // to implement soWaitWrite
     function GetCount: integer;
-    procedure DoLog(const TextFmt: RawUtf8; const TextArgs: array of const;
+    procedure DoLog(TextFmt: PUtf8Char; const TextArgs: array of const;
       Level: TSynLogLevel = sllTrace);
     // pseError: return false to close socket and connection
     function OnError(connection: TPollAsyncConnection;
@@ -624,7 +624,7 @@   TAsyncConnections = class(TLoggedThread)
     function LockedConnectionDelete(
       aConnection: TAsyncConnection; aIndex: integer): boolean;
     procedure ConnectionAdd(conn: TAsyncConnection);
-    procedure DoLog(Level: TSynLogLevel; const TextFmt: RawUtf8;
+    procedure DoLog(Level: TSynLogLevel; TextFmt: PUtf8Char;
       const TextArgs: array of const; Instance: TObject);
     procedure ProcessIdleTix(Sender: TObject; NowTix: Int64); virtual;
     function ProcessClientStart(Sender: TPollAsyncConnection): boolean;
@@ -1788,7 +1788,7 @@ function TPollAsyncSockets.GetCount: integer;
     result := {$ifdef USE_WINIOCP} fIocpRecvSend {$else} fRead {$endif}.Count;
 end;
 
-procedure TPollAsyncSockets.DoLog(const TextFmt: RawUtf8;
+procedure TPollAsyncSockets.DoLog(TextFmt: PUtf8Char;
   const TextArgs: array of const; Level: TSynLogLevel);
 begin
   fDebugLog.Add.Log(Level, TextFmt, TextArgs, self);
@@ -3088,7 +3088,7 @@ function TAsyncConnections.ThreadPollingWakeup(Events: integer): PtrInt;
 end;
 {$endif USE_WINIOCP}
 
-procedure TAsyncConnections.DoLog(Level: TSynLogLevel; const TextFmt: RawUtf8;
+procedure TAsyncConnections.DoLog(Level: TSynLogLevel; TextFmt: PUtf8Char;
   const TextArgs: array of const; Instance: TObject);
 begin
   if (self <> nil) and

src/orm/mormot.orm.core.pas

@@ -1222,7 +1222,7 @@     // !   TOrmOrder = class(TOrm)
     /// log the corresponding text (if logging is enabled)
     procedure InternalLog(const Text: RawUtf8; Level: TSynLogLevel); overload;
     /// log the corresponding text (if logging is enabled)
-    procedure InternalLog(const Format: RawUtf8; const Args: array of const;
+    procedure InternalLog(Format: PUtf8Char; const Args: array of const;
       Level: TSynLogLevel = sllTrace); overload;
     /// access to the associate TSynLog class type
     function LogClass: TSynLogClass;

src/orm/mormot.orm.rest.pas

@@ -492,7 +492,7 @@   TRestOrm = class(TRestOrmParent, IRestOrm)
       {$ifdef HASINLINE}inline;{$endif}
     procedure InternalLog(const Text: RawUtf8; Level: TSynLogLevel); overload;
       {$ifdef HASINLINE}inline;{$endif}
-    procedure InternalLog(const Format: RawUtf8; const Args: array of const;
+    procedure InternalLog(Format: PUtf8Char; const Args: array of const;
       Level: TSynLogLevel = sllTrace); overload;
     function GetServerTimestamp: TTimeLog;
       {$ifdef HASINLINE}inline;{$endif}
@@ -2555,7 +2555,7 @@ function TRestOrm.CacheWorthItForTable(aTableIndex: cardinal): boolean;
   result := true; // always worth caching by default
 end;
 
-procedure TRestOrm.InternalLog(const Format: RawUtf8; const Args: array of const;
+procedure TRestOrm.InternalLog(Format: PUtf8Char; const Args: array of const;
   Level: TSynLogLevel);
 begin
   fRest.InternalLog(Format, Args, Level);

src/rest/mormot.rest.core.pas

@@ -533,7 +533,7 @@   TRest = class(TInterfaceResolver)
     procedure InternalLog(const Text: RawUtf8; Level: TSynLogLevel); overload;
       {$ifdef HASINLINE} inline; {$endif}
     /// ease logging of some text in the context of the current TRest
-    procedure InternalLog(const Format: RawUtf8; const Args: array of const;
+    procedure InternalLog(Format: PUtf8Char; const Args: array of const;
       Level: TSynLogLevel = sllTrace); overload;
     /// ease logging of method enter/leave in the context of the current TRest
     function Enter(const TextFmt: RawUtf8; const TextArgs: array of const;
@@ -2057,7 +2057,7 @@ procedure TRest.InternalLog(const Text: RawUtf8; Level: TSynLogLevel);
     fLogFamily.Add.Log(Level, Text, self);
 end;
 
-procedure TRest.InternalLog(const Format: RawUtf8; const Args: array of const;
+procedure TRest.InternalLog(Format: PUtf8Char; const Args: array of const;
   Level: TSynLogLevel);
 begin
   if (self <> nil) and