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

* correct Read/write methods to use same parameter type as TStream ancestors

Browse Source 
git-svn-id: trunk@7253 -
This commit is contained in:
pierre 2007-05-03 22:01:49 +00:00
parent 3ad8257ecb
commit 551498b8d5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/wutils.pas
View File

@ -76,9 +76,9 @@ type
constructor Init;
function GetPos: Longint; virtual;
function GetSize: Longint; virtual;
procedure Read(var Buf; Count: Word); virtual;
procedure Read(var Buf; Count: longint); virtual;
procedure Seek(Pos: Longint); virtual;
procedure Write(var Buf; Count: Word); virtual;
procedure Write(var Buf; Count: longint); virtual;
end;
PSubStream = ^TSubStream;
@ -86,9 +86,9 @@ type
constructor Init(AStream: PStream; AStartPos, ASize: longint);
function GetPos: Longint; virtual;
function GetSize: Longint; virtual;
procedure Read(var Buf; Count: Word); virtual;
procedure Read(var Buf; Count: longint); virtual;
procedure Seek(Pos: Longint); virtual;
procedure Write(var Buf; Count: Word); virtual;
procedure Write(var Buf; Count: longint); virtual;
private
StartPos: longint;
S : PStream;
@ -827,7 +827,7 @@ begin
GetSize:=Position;
end;
procedure TNulStream.Read(var Buf; Count: Word);
procedure TNulStream.Read(var Buf; Count: longint);
begin
Error(stReadError,0);
end;
@ -838,7 +838,7 @@ begin
Position:=Pos;
end;
procedure TNulStream.Write(var Buf; Count: Word);
procedure TNulStream.Write(var Buf; Count: longint);
begin
Inc(Position,Count);
end;
@ -863,9 +863,9 @@ begin
GetSize:=StreamSize;
end;
procedure TSubStream.Read(var Buf; Count: Word);
procedure TSubStream.Read(var Buf; Count: longint);
var Pos: longint;
RCount: word;
RCount: longint;
begin
Pos:=GetPos;
if Pos+Count>StreamSize then RCount:=StreamSize-Pos else RCount:=Count;
@ -881,7 +881,7 @@ begin
S^.Seek(StartPos+RPos);
end;
procedure TSubStream.Write(var Buf; Count: Word);
procedure TSubStream.Write(var Buf; Count: longint);
begin
S^.Write(Buf,Count);
end;