From ceb982930c16a4ecf23d2adc39fae9de6557028d Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 20 Aug 2017 18:23:05 +0000
Subject: [PATCH] * even though Delphi defines GetDataSize as LongInt (or more
precisely Integer) we use SizeInt as that is what we allow for arrays,
strings and memory allocations in general as well
git-svn-id: trunk@36964 -
---
packages/rtl-objpas/src/inc/rtti.pp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index c75565c6ed..78c6edf2fa 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -33,7 +33,7 @@ type
['{1338B2F3-2C21-4798-A641-CA2BC5BF2396}']
procedure ExtractRawData(ABuffer: pointer);
procedure ExtractRawDataNoCopy(ABuffer: pointer);
- function GetDataSize: integer;
+ function GetDataSize: SizeInt;
function GetReferenceToRawData: pointer;
end;
@@ -284,7 +284,7 @@ type
destructor Destroy; override;
procedure ExtractRawData(ABuffer: pointer);
procedure ExtractRawDataNoCopy(ABuffer: pointer);
- function GetDataSize: integer;
+ function GetDataSize: SizeInt;
function GetReferenceToRawData: pointer;
end;
@@ -488,7 +488,7 @@ begin
System.Move(FBuffer{!}, ABuffer^, FDataSize);
end;
-function TValueDataIntImpl.GetDataSize: integer;
+function TValueDataIntImpl.GetDataSize: SizeInt;
begin
result := FDataSize;
end;