64bit incompatible types in memory allocation

This commit is contained in:
Roald van Doorn 2023-12-04 11:04:12 +01:00
parent 8b17a99c33
commit 7e4cef489e
1 changed files with 4 additions and 4 deletions

View File

@ -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