paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 07:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make explicit that Integer is 32-bit

Browse Source 
git-svn-id: trunk@42056 -
This commit is contained in:
michael 2019-05-13 11:47:46 +00:00
parent 883d1f2a79
commit dc592a888f
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/classesh.inc
View File

@ -1018,8 +1018,8 @@ type
function WriteData(const Buffer: TExtended80Rec): NativeInt; overload;
function WriteData(const Buffer: TExtended80Rec; Count: NativeInt): NativeInt; overload;
{$ENDIF}
procedure WriteBufferData(Buffer: Integer); overload;
procedure WriteBufferData(Buffer: Integer; Count: NativeInt); overload;
procedure WriteBufferData(Buffer: Int32); overload;
procedure WriteBufferData(Buffer: Int32; Count: NativeInt); overload;
procedure WriteBufferData(Buffer: Boolean); overload;
procedure WriteBufferData(Buffer: Boolean; Count: NativeInt); overload;
procedure WriteBufferData(Buffer: AnsiChar); overload;

4
rtl/objpas/classes/streams.inc
View File

@ -768,12 +768,12 @@ begin
end;
{$ENDIF}
procedure TStream.WriteBufferData(Buffer: Integer);
procedure TStream.WriteBufferData(Buffer: Int32);
begin
WriteBuffer(Buffer,SizeOf(Buffer));
end;
procedure TStream.WriteBufferData(Buffer: Integer; Count: NativeInt);
procedure TStream.WriteBufferData(Buffer: Int32; Count: NativeInt);
begin
WriteMaxSizeData(Buffer,SizeOf(Buffer),Count);
end;