64bit incompatible types in memory allocation
This commit is contained in:
parent
8b17a99c33
commit
7e4cef489e
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user