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

* fixed range check error in the DOS unit

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-10-20 11:58:50 +03:00
parent bb30958665
commit 03513720a3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/wasi/dos.pp
View File

@ -207,13 +207,13 @@ begin
if (DT.year<1970) or (DT.month<1) or (DT.month>12) or (DT.day<1) or (DT.day>31) or
(DT.hour>=24) or (DT.min>=60) or (DT.sec>=60) then
begin
DTToWasiDate:=-1;
DTToWasiDate:=0;
exit;
end;
leap:=((DT.year mod 4)=0) and (((DT.year mod 100)<>0) or ((DT.year mod 400)=0));
if DT.day>days_in_month[leap,DT.month] then
begin
DTToWasiDate:=-1;
DTToWasiDate:=0;
exit;
end;
DTToWasiDate:=0;