Browse Source

* 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 -
svenbarth 8 years ago
parent
commit
ceb982930c
1 changed files with 3 additions and 3 deletions
  1. 3 3
      packages/rtl-objpas/src/inc/rtti.pp

+ 3 - 3
packages/rtl-objpas/src/inc/rtti.pp

@@ -33,7 +33,7 @@ type
   ['{1338B2F3-2C21-4798-A641-CA2BC5BF2396}']
   ['{1338B2F3-2C21-4798-A641-CA2BC5BF2396}']
     procedure ExtractRawData(ABuffer: pointer);
     procedure ExtractRawData(ABuffer: pointer);
     procedure ExtractRawDataNoCopy(ABuffer: pointer);
     procedure ExtractRawDataNoCopy(ABuffer: pointer);
-    function GetDataSize: integer;
+    function GetDataSize: SizeInt;
     function GetReferenceToRawData: pointer;
     function GetReferenceToRawData: pointer;
   end;
   end;
 
 
@@ -284,7 +284,7 @@ type
     destructor Destroy; override;
     destructor Destroy; override;
     procedure ExtractRawData(ABuffer: pointer);
     procedure ExtractRawData(ABuffer: pointer);
     procedure ExtractRawDataNoCopy(ABuffer: pointer);
     procedure ExtractRawDataNoCopy(ABuffer: pointer);
-    function GetDataSize: integer;
+    function GetDataSize: SizeInt;
     function GetReferenceToRawData: pointer;
     function GetReferenceToRawData: pointer;
   end;
   end;
 
 
@@ -488,7 +488,7 @@ begin
     System.Move(FBuffer{!}, ABuffer^, FDataSize);
     System.Move(FBuffer{!}, ABuffer^, FDataSize);
 end;
 end;
 
 
-function TValueDataIntImpl.GetDataSize: integer;
+function TValueDataIntImpl.GetDataSize: SizeInt;
 begin
 begin
   result := FDataSize;
   result := FDataSize;
 end;
 end;