From 43da8c50478353b1110b051dd95e12ad0d3aeac2 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Wed, 10 Nov 2021 20:34:00 +0200
Subject: [PATCH] LCL-fpGUI: Fix compilation. Issue #39354, patch by Peter
 Blackman.

---
 lcl/interfaces/fpgui/fpguiwsprivate.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/fpgui/fpguiwsprivate.pp b/lcl/interfaces/fpgui/fpguiwsprivate.pp
index 5c6bd67c48..825ae2404a 100644
--- a/lcl/interfaces/fpgui/fpguiwsprivate.pp
+++ b/lcl/interfaces/fpgui/fpguiwsprivate.pp
@@ -55,8 +55,8 @@ type
   { TFPGUIPrivate }
 
   TFPGUIPrivate = class(TInterfacedObject)
-    function _AddRef : longint;stdcall;
-    function _Release : longint;stdcall;
+    function _AddRef: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
+    function _Release: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
   end;
 
   { To access protected properties of TfpgWidget }
@@ -793,12 +793,12 @@ end;
 
 { TFPGUIPrivate }
 
-function TFPGUIPrivate._AddRef: longint; stdcall;
+function TFPGUIPrivate._AddRef: longint; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
 begin
   Result := -1;
 end;
 
-function TFPGUIPrivate._Release: longint; stdcall;
+function TFPGUIPrivate._Release: longint; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
 begin
   Result := -1;
 end;