From 827f543289dd3f8ff80c09d36cad489b583c3410 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 23 Jun 2021 21:01:30 +0000
Subject: [PATCH] * fixed date calculation in WasiDateToDT

git-svn-id: trunk@49540 -
---
 rtl/wasi/dos.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/wasi/dos.pp b/rtl/wasi/dos.pp
index 163b941ee4..aabb7a429f 100644
--- a/rtl/wasi/dos.pp
+++ b/rtl/wasi/dos.pp
@@ -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);