diff --git a/rtl/wince/wininc/struct.inc b/rtl/wince/wininc/struct.inc
index 7e60ca68c2..6062df3715 100644
--- a/rtl/wince/wininc/struct.inc
+++ b/rtl/wince/wininc/struct.inc
@@ -53,7 +53,9 @@
 {$ifdef read_interface}
 
   type
+    {$calling default}
     {$i typshrdh.inc}
+    {$calling cdecl}
     { WARNING
       the variable argument list
       is not implemented for FPC
@@ -8211,6 +8213,8 @@ type
        a.flag0:=a.flag0 or ((__fAckReq shl bp_DDEUP_fAckReq) and bm_DDEUP_fAckReq);
     end;
 
+ {$calling default}
  {$i typshrd.inc}
+ {$calling cdecl}
 {$endif read_implementation}