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

* fixed date calculation in WasiDateToDT

Browse Source 
git-svn-id: trunk@49540 -
This commit is contained in:
nickysn 2021-06-23 21:01:30 +00:00
parent c48f27225e
commit 827f543289
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

@ -164,9 +164,9 @@ Begin
Inc(Dt.Year);
leap:=((Dt.Year mod 4)=0) and (((Dt.Year mod 100)<>0) or ((Dt.Year mod 400)=0));
if leap then
days_in_year:=365
days_in_year:=366
else
days_in_year:=366;
days_in_year:=365;
end;
Dt.Month:=1;
Inc(NanoSecsPast);