introducing NOVMTPATCH conditional

- to disable the vmtAutoTable slot runtime patch, replacing it with a slowest algo
- could be used e.g. when in-memory executables can't be patched (e.g. on security constrained systems, or on OS without any mmap support)
- fallback to the regular Rtti.FindType() lookup which is not O(1) and could still be optimized

src/core/mormot.core.interfaces.pas

@@ -5427,7 +5427,7 @@   TRttiCustomWrapper = class(TRttiJson);
 
 procedure TInjectableObject.AutoResolve(aRaiseEServiceExceptionIfNotFound: boolean);
 var
-  rtti: TRttiJson;
+  r: TRttiJson;
   n: integer;
   p: PPRttiCustomProp;
   addr: pointer;
@@ -5437,12 +5437,16 @@ procedure TInjectableObject.AutoResolve(aRaiseEServiceExceptionIfNotFound: boole
     raise EInterfaceResolver.CreateUtf8(
       '%.AutoResolve with no prior registration', [self]);
   // inlined Rtti.RegisterClass()
-  rtti := PPointer(PPAnsiChar(self)^ + vmtAutoTable)^;
-  if (rtti = nil) or
-     not (rcfAutoCreateFields in rtti.Flags) then
-    rtti := DoRegisterAutoCreateFields(self);
+  {$ifdef NOVMTPATCH}
+  r := pointer(Rtti.FindType(PPointer(PPAnsiChar(self)^ + vmtTypeInfo)^));
+  {$else}
+  r := PPointer(PPAnsiChar(self)^ + vmtAutoTable)^;
+  {$endif NOVMTPATCH}
+  if (r = nil) or
+     not (rcfAutoCreateFields in r.Flags) then
+    r := DoRegisterAutoCreateFields(self);
   // resolve all published interface fields
-  p := pointer(TRttiCustomWrapper(rtti).fAutoCreateInterfaces);
+  p := pointer(TRttiCustomWrapper(r).fAutoCreateInterfaces);
   if p = nil then
     exit;
   n := PDALen(PAnsiChar(p) - _DALEN)^ + _DAOFF; // length(AutoCreateClasses)

src/core/mormot.core.json.pas

@@ -11288,16 +11288,20 @@ function DoRegisterAutoCreateFields(ObjectInstance: TObject): TRttiJson;
 
 procedure AutoCreateFields(ObjectInstance: TObject);
 var
-  rtti: TRttiJson;
+  r: TRttiJson;
   n: integer;
   p: PPRttiCustomProp;
 begin
   // inlined Rtti.RegisterClass()
-  rtti := PPointer(PPAnsiChar(ObjectInstance)^ + vmtAutoTable)^;
-  if (rtti = nil) or
-     not (rcfAutoCreateFields in rtti.Flags) then
-    rtti := DoRegisterAutoCreateFields(ObjectInstance);
-  p := pointer(rtti.fAutoCreateClasses);
+  {$ifdef NOVMTPATCH}
+  r := pointer(Rtti.FindType(PPointer(PPAnsiChar(ObjectInstance)^ + vmtTypeInfo)^));
+  {$else}
+  r := PPointer(PPAnsiChar(ObjectInstance)^ + vmtAutoTable)^;
+  {$endif NOVMTPATCH}
+  if (r = nil) or
+     not (rcfAutoCreateFields in r.Flags) then
+    r := DoRegisterAutoCreateFields(ObjectInstance);
+  p := pointer(r.fAutoCreateClasses);
   if p = nil then
     exit;
   // create all published class fields
@@ -11313,15 +11317,19 @@ procedure AutoCreateFields(ObjectInstance: TObject);
 
 procedure AutoDestroyFields(ObjectInstance: TObject);
 var
-  rtti: TRttiJson;
+  r: TRttiJson;
   n: integer;
   p: PPRttiCustomProp;
   arr: pointer;
   o: TObject;
 begin
-  rtti := PPointer(PPAnsiChar(ObjectInstance)^ + vmtAutoTable)^;
+  {$ifdef NOVMTPATCH}
+  r := pointer(Rtti.FindType(PPointer(PPAnsiChar(ObjectInstance)^ + vmtTypeInfo)^));
+  {$else}
+  r := PPointer(PPAnsiChar(ObjectInstance)^ + vmtAutoTable)^;
+  {$endif NOVMTPATCH}
   // free all published class fields
-  p := pointer(rtti.fAutoCreateClasses);
+  p := pointer(r.fAutoCreateClasses);
   if p <> nil then
   begin
     n := PDALen(PAnsiChar(p) - _DALEN)^ + _DAOFF;
@@ -11335,7 +11343,7 @@ procedure AutoDestroyFields(ObjectInstance: TObject);
     until n = 0;
   end;
   // release all published T*ObjArray fields
-  p := pointer(rtti.fAutoCreateObjArrays);
+  p := pointer(r.fAutoCreateObjArrays);
   if p = nil then
     exit;
   n := PDALen(PAnsiChar(p) - _DALEN)^ + _DAOFF;

src/core/mormot.core.log.pas

@@ -4211,7 +4211,11 @@ class function TSynLog.Family: TSynLogFamily;
   if result <> nil then
   begin
     // inlined Rtti.Find(ClassType)
+    {$ifdef NOVMTPATCH}
+    result := pointer(Rtti.FindType(PPointer(PAnsiChar(result) + vmtTypeInfo)^));
+    {$else}
     result := PPointer(PAnsiChar(result) + vmtAutoTable)^;
+    {$endif NOVMTPATCH}
     if result <> nil then
       // we know TRttiCustom is in the slot, and PrivateSlot as TSynLogFamily
       result := TRttiCustom(pointer(result)).PrivateSlot;
@@ -4229,7 +4233,11 @@ class function TSynLog.Add: TSynLog;
   result := pointer(Self);
   if result <> nil then
   begin
+    {$ifdef NOVMTPATCH}
+    P := pointer(Rtti.FindType(PPointer(PAnsiChar(result) + vmtTypeInfo)^));
+    {$else}
     P := PPointer(PAnsiChar(result) + vmtAutoTable)^;
+    {$endif NOVMTPATCH}
     if P <> nil then
     begin
       // we know TRttiCustom is in the slot, and Private is TSynLogFamily
@@ -4247,19 +4255,23 @@ class function TSynLog.Add: TSynLog;
 class function TSynLog.FamilyCreate: TSynLogFamily;
 var
   rtticustom: TRttiCustom;
+  {$ifndef NOVMTPATCH}
   vmt: TObject;
+  {$endif NOVMTPATCH}
 begin
   // private sub function called from inlined TSynLog.Family / TSynLog.Add
   if (self <> nil) and
      InheritsFrom(TSynLog) then // paranoid
   begin
     rtticustom := Rtti.RegisterClass(self);
+    {$ifndef NOVMTPATCH}
     vmt := PPointer(PAnsiChar(self) + vmtAutoTable)^;
     if (rtticustom = nil) or
        (vmt <> rtticustom) then
       // TSynLog.Family / TSynLog.Add expect TRttiCustom in the first slot
       raise ESynLogException.CreateUtf8(
         '%.FamilyCreate: vmtAutoTable=% not %', [self, vmt, rtticustom]);
+    {$endif NOVMTPATCH}
     Rtti.RegisterSafe.Lock;
     try
       result := rtticustom.PrivateSlot;
@@ -4269,7 +4281,7 @@ class function TSynLog.FamilyCreate: TSynLogFamily;
           exit
         else
           raise ESynLogException.CreateUtf8( // paranoid
-            '%.FamilyCreate: vmtAutoTable=%', [self, result]);
+            '%.FamilyCreate: PrivateSlot=%', [self, result]);
       // create the TSynLogFamily instance associated with this TSynLog class
       result := TSynLogFamily.Create(self); // stored in SynLogFamily[]
       rtticustom.PrivateSlot := result; // will be owned by this TRttiCustom