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

--- Merging r42062 into '.':

Browse Source 
U    rtl/objpas/classes/classesh.inc
--- Recording mergeinfo for merge of r42062 into '.':
 U   .

# revisions: 42062

git-svn-id: branches/fixes_3_2@43961 -
This commit is contained in:
marco 2020-01-17 08:57:19 +00:00
parent 01cb09e1a0
commit e01f4d52f5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -930,7 +930,7 @@ type
procedure WriteNotImplemented;
public
function Read(var Buffer; Count: Longint): Longint; virtual; overload;
function Write(const Buffer; Count: Longint): Longint; virtual;
function Write(const Buffer; Count: Longint): Longint; virtual; overload;
function Seek(Offset: Longint; Origin: Word): Longint; virtual; overload;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; virtual; overload;
procedure ReadBuffer(var Buffer; Count: Longint);
@ -966,8 +966,8 @@ type
function GetIStream: IStream;
public
constructor Create(const Stream: IStream);
function Read(var Buffer; Count: Longint): Longint; override; overload;
function Write(const Buffer; Count: Longint): Longint; override; overload;
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override;
procedure Check(err:integer); virtual;
end;
@ -1000,8 +1000,8 @@ type
procedure SetSize(const NewSize: Int64); override;
public
constructor Create(AHandle: THandle);
function Read(var Buffer; Count: Longint): Longint; override; overload;
function Write(const Buffer; Count: Longint): Longint; override; overload;
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
property Handle: THandle read FHandle;
end;
@ -1029,7 +1029,7 @@ type
function GetPosition: Int64; Override;
procedure SetPointer(Ptr: Pointer; ASize: PtrInt);
public
function Read(var Buffer; Count: LongInt): LongInt; override; overload;
function Read(var Buffer; Count: LongInt): LongInt; override;
function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
procedure SaveToStream(Stream: TStream);
procedure SaveToFile(const FileName: string);
@ -1051,7 +1051,7 @@ type
procedure LoadFromStream(Stream: TStream);
procedure LoadFromFile(const FileName: string);
procedure SetSize({$ifdef CPU64}const NewSize: Int64{$else}NewSize: LongInt{$endif}); override;
function Write(const Buffer; Count: LongInt): LongInt; override; overload;
function Write(const Buffer; Count: LongInt): LongInt; override;
end;
{ TBytesStream }