From eb294eddb7fd8321827ade42437eba075b8342c8 Mon Sep 17 00:00:00 2001
From: rchastain <eschecs2018@gmail.com>
Date: Sat, 24 Jun 2023 07:15:01 +0200
Subject: [PATCH] FillChar parameters order

---
 src/corelib/fpg_msgqueue.inc | 4 ++--
 src/corelib/x11/fpg_x11.pas  | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/corelib/fpg_msgqueue.inc b/src/corelib/fpg_msgqueue.inc
index 5cd86b1b5..254de50bb 100644
--- a/src/corelib/fpg_msgqueue.inc
+++ b/src/corelib/fpg_msgqueue.inc
@@ -198,7 +198,7 @@ begin
       p^.Sender  := Sender;
       p^.Dest    := Dest;
       p^.Stop    := False;
-      FillChar(p^.Params, 0, SizeOf(p^.Params));
+      FillChar(p^.Params, SizeOf(p^.Params), 0);
     end
     else
       raise Exception.Create('THE fpGUI MESSAGE QUEUE IS FULL.');
@@ -232,7 +232,7 @@ begin
   m.MsgCode := MsgCode;
   m.Sender  := Sender;
   m.Dest    := Dest;
-  FillChar(m.Params, 0, SizeOf(m.Params));
+  FillChar(m.Params, SizeOf(m.Params), 0);
 
   fpgDeliverMessage(m);
 end;
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 8ee5a9336..ba6346196 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1258,7 +1258,7 @@ constructor EfpgX11Exception.Create(ADisplay: PXDisplay; AErrorEv: PXErrorEvent)
   Display:=ADisplay;
   ErrorEv:=AErrorEv;
 
-  FillChar(ErrText,0, SizeOf(ErrText));
+  FillChar(ErrText, SizeOf(ErrText), 0);
   XGetErrorText(Display, ErrorEv^.error_code, @ErrText, SizeOf(ErrText));
 
   inherited Create(ErrText);