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

* Change TProxyStream.seek to 64-bit variant.

Browse Source 
git-svn-id: trunk@17093 -
This commit is contained in:
marco 2011-03-08 15:13:53 +00:00
parent c0f254d706
commit 32a7502f38
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -816,7 +816,7 @@ type
constructor Create(const Stream: IStream);
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
function Seek(Offset: Longint; Origin: Word): Longint; override;
function Seek(const Offset: int64; Origin: TSeekOrigin): int64; override;
procedure Check(err:longint); virtual;
end;

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

@ -1060,12 +1060,9 @@ begin
Check(FStream.Read(@Buffer, Count, @Result));
end;
function TProxyStream.Seek(Offset: Longint; Origin: Word): Longint;
var
Pos: Int64;
function TProxyStream. Seek(const Offset: int64; Origin: TSeekOrigin): int64;
begin
Check(FStream.Seek(Offset, Origin, Pos));
Result := Pos;
Check(FStream.Seek(Offset, ord(Origin), result));
end;
function TProxyStream.Write(const Buffer; Count: Longint): Longint;