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

* set function result in TStream.Seek(int64) found by Mattias Gaertner

Browse Source
This commit is contained in:
peter 2002-12-18 16:45:33 +00:00
parent 5bbe43169c
commit 9cf17e0164
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/streams.inc
View File

@ -99,7 +99,7 @@
if (Offset<Low(longint)) or if (Offset<Low(longint)) or
(Offset>High(longint)) then (Offset>High(longint)) then
raise ERangeError.Create(SRangeError); raise ERangeError.Create(SRangeError);
Seek(longint(Offset),ord(Origin)); Result:=Seek(longint(Offset),ord(Origin));
end; end;
{$else seek64bit} {$else seek64bit}
@ -784,7 +784,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2002-12-18 16:35:59 peter Revision 1.11 2002-12-18 16:45:33 peter
* set function result in TStream.Seek(int64) found by Mattias Gaertner
Revision 1.10 2002/12/18 16:35:59 peter
* fix crash in Seek() * fix crash in Seek()
Revision 1.9 2002/12/18 15:51:52 michael Revision 1.9 2002/12/18 15:51:52 michael