GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-12-22 09:23:08 +01:00
Code Issues Projects Releases Wiki Activity

64bit incompatible types in memory allocation

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
X2Log.JsonDataObjects.pas
View File

@ -1036,7 +1036,7 @@ type
private private
FDataString: UTF8String; FDataString: UTF8String;
protected protected
function Realloc(var NewCapacity: Longint): Pointer; override; function Realloc(var NewCapacity: NativeInt): Pointer; override;
public public
constructor Create; constructor Create;
property DataString: UTF8String read FDataString; property DataString: UTF8String read FDataString;
@ -1047,7 +1047,7 @@ type
private private
FBytes: TBytes; FBytes: TBytes;
protected protected
function Realloc(var NewCapacity: Longint): Pointer; override; function Realloc(var NewCapacity: NativeInt): Pointer; override;
public public
constructor Create; constructor Create;
property Bytes: TBytes read FBytes; property Bytes: TBytes read FBytes;
@ -7817,7 +7817,7 @@ begin
SetPointer(nil, 0); SetPointer(nil, 0);
end; end;
function TJsonUTF8StringStream.Realloc(var NewCapacity: Longint): Pointer; function TJsonUTF8StringStream.Realloc(var NewCapacity: NativeInt): Pointer;
var var
L: Longint; L: Longint;
begin begin
@ -7855,7 +7855,7 @@ begin
SetPointer(nil, 0); SetPointer(nil, 0);
end; end;
function TJsonBytesStream.Realloc(var NewCapacity: Longint): Pointer; function TJsonBytesStream.Realloc(var NewCapacity: NativeInt): Pointer;
var var
L: Longint; L: Longint;
begin begin