From 7e4cef489ebbaec2141545e896657e96d03d1c01 Mon Sep 17 00:00:00 2001
From: Roald van Doorn <Roald.van.Doorn@uname-it.nl>
Date: Mon, 4 Dec 2023 11:04:12 +0100
Subject: [PATCH] 64bit incompatible types in memory allocation

---
 X2Log.JsonDataObjects.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/X2Log.JsonDataObjects.pas b/X2Log.JsonDataObjects.pas
index 3ecef83..9d1306f 100644
--- a/X2Log.JsonDataObjects.pas
+++ b/X2Log.JsonDataObjects.pas
@@ -1036,7 +1036,7 @@ type
   private
     FDataString: UTF8String;
   protected
-    function Realloc(var NewCapacity: Longint): Pointer; override;
+    function Realloc(var NewCapacity: NativeInt): Pointer; override;
   public
     constructor Create;
     property DataString: UTF8String read FDataString;
@@ -1047,7 +1047,7 @@ type
   private
     FBytes: TBytes;
   protected
-    function Realloc(var NewCapacity: Longint): Pointer; override;
+    function Realloc(var NewCapacity: NativeInt): Pointer; override;
   public
     constructor Create;
     property Bytes: TBytes read FBytes;
@@ -7817,7 +7817,7 @@ begin
   SetPointer(nil, 0);
 end;
 
-function TJsonUTF8StringStream.Realloc(var NewCapacity: Longint): Pointer;
+function TJsonUTF8StringStream.Realloc(var NewCapacity: NativeInt): Pointer;
 var
   L: Longint;
 begin
@@ -7855,7 +7855,7 @@ begin
   SetPointer(nil, 0);
 end;
 
-function TJsonBytesStream.Realloc(var NewCapacity: Longint): Pointer;
+function TJsonBytesStream.Realloc(var NewCapacity: NativeInt): Pointer;
 var
   L: Longint;
 begin