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

* Raise exception for fileseek positions that do not fit in longing. Issue #39407

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-10-17 17:58:11 +02:00
parent 1e74c418ae
commit e97e27b8d5
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysconst.pp
View File

@ -41,6 +41,7 @@ const
SDispatchError = 'No variant method call dispatch';
SDivByZero = 'Division by zero';
SEndOfFile = 'Read past end of file';
SErrPosToBigForLongint = 'File position %d too big to fit in 32-bit integer; Use Int64 overload instead';
SErrInvalidDateMonthWeek = 'Year %d, month %d, Week %d and day %d is not a valid date.';
SerrInvalidHourMinuteSecMsec = '%d:%d:%d.%d is not a valid time specification';
SErrInvalidDateWeek = '%d %d %d is not a valid dateweek';

8
rtl/unix/sysutils.pp
View File

@ -525,8 +525,14 @@ end;
Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
Var
I : Int64;
begin
result:=longint(FileSeek(Handle,int64(FOffset),Origin));
I:=FileSeek(Handle,int64(FOffset),Origin);
if I>High(Longint) then
Raise EInOutError.CreateFmt(SErrPosToBigForLongint,[I]);
result:=I;
end;