paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 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

Browse Source 
git-svn-id: trunk@36964 -
This commit is contained in:
svenbarth 2017-08-20 18:23:05 +00:00
parent 95523157e5
commit ceb982930c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -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;