paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 11:29:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #35576

Browse Source 
git-svn-id: trunk@42057 -
This commit is contained in:
michael 2019-05-13 20:15:00 +00:00
parent dc592a888f
commit e4385d1b19
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -900,8 +900,8 @@ type
Procedure WriteExactSizeData(Const Buffer; aSize,aCount : NativeInt);
public
function Read(var Buffer; Count: Longint): Longint; virtual;
function Read(Buffer: TBytes; Count: Longint): Longint; overload;
function Read(Buffer : TBytes; aOffset, Count: Longint): Longint; overload;
function Read(var Buffer: TBytes; Count: Longint): Longint; overload;
function Read( Buffer : TBytes; aOffset, Count: Longint): Longint; overload;
function Write(const Buffer: TBytes; Offset, Count: Longint): Longint; overload;
function Write(const Buffer: TBytes; Count: Longint): Longint; overload;
@ -911,7 +911,7 @@ type
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; virtual; overload;
function ReadData(Buffer: Pointer; Count: NativeInt): NativeInt; overload;
function ReadData(const Buffer: TBytes; Count: NativeInt): NativeInt; overload;
function ReadData(Buffer: TBytes; Count: NativeInt): NativeInt; overload;
function ReadData(var Buffer: Boolean): NativeInt; overload;
function ReadData(var Buffer: Boolean; Count: NativeInt): NativeInt; overload;
function ReadData(var Buffer: AnsiChar): NativeInt; overload;

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

@ -30,7 +30,7 @@ begin
Result := 0;
end;
function TStream.Read(Buffer: TBytes; Count: Longint): Longint;
function TStream.Read(var Buffer: TBytes; Count: Longint): Longint;
begin
Result:=Read(Buffer,0,Count);
end;
@ -203,7 +203,7 @@ end;
Result:=Read(Buffer^,Count);
end;
function TStream.ReadData(const Buffer: TBytes; Count: NativeInt): NativeInt;
function TStream.ReadData({var} Buffer: TBytes; Count: NativeInt): NativeInt;
begin
Result:=Read(Buffer,0,Count);
end;