Skip to content

Commit a0305d5

Browse files
committed
Delphi 11 fix
1 parent 038b7bb commit a0305d5

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

Source/Data/ObjectDataSet/Spring.Data.VirtualDataSet.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -101,7 +101,7 @@ TBlobStream = class(TMemoryStream)
101101
fFieldData: Variant;
102102
procedure ReadBlobData;
103103
protected
104-
function Realloc(var NewCapacity: LongInt): Pointer; override;
104+
function Realloc(var NewCapacity: {$IF RTLVersion >= 35}NativeInt{$ELSE}LongInt{$IFEND}): Pointer; override;
105105
public
106106
constructor Create(Field: TBlobField; Mode: TBlobStreamMode);
107107
destructor Destroy; override;
@@ -1569,7 +1569,7 @@ procedure TBaseVirtualDataSet.TBlobStream.ReadBlobData;
15691569
end;
15701570

15711571
function TBaseVirtualDataSet.TBlobStream.Realloc(
1572-
var NewCapacity: LongInt): Pointer;
1572+
var NewCapacity: {$IF RTLVersion >= 35}NativeInt{$ELSE}LongInt{$IFEND}): Pointer;
15731573

15741574
procedure VarAlloc(var V: Variant; Field: TFieldType);
15751575
var

0 commit comments

Comments
 (0)