From ef5a32ab9531f0c6626fff54981a05d0cef3a0d0 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Tue, 25 Jul 2023 07:22:39 +0200
Subject: [PATCH] Fix order of parameters of FillChar

---
 rtl/objpas/sysutils/dati.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/objpas/sysutils/dati.inc b/rtl/objpas/sysutils/dati.inc
index 9811653c85..ea588a043f 100644
--- a/rtl/objpas/sysutils/dati.inc
+++ b/rtl/objpas/sysutils/dati.inc
@@ -1278,7 +1278,7 @@ begin
   DecodeDateFully(DateTime, Year, Month, Day, DayOfWeek);
   DecodeTime(DateTime, Hour, Minute, Second, MilliSecond);
   ResultLen := 0;
-  FillChar(ResultBuffer,0,SizeOf(ResultBuffer));
+  FillChar(ResultBuffer,SizeOf(ResultBuffer),0);
   ResultCurrent := @ResultBuffer[0];
   if FormatStr <> '' then
     StoreFormat(FormatStr, 0, False)