hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 10430 899a30018ede
parent 10428 7c25297720f1
child 10432 b0abef0ee78c
--- a/hedgewars/uFLTypes.pas	Sun Sep 28 00:49:04 2014 +0400
+++ b/hedgewars/uFLTypes.pas	Sun Sep 28 01:17:55 2014 +0400
@@ -10,7 +10,7 @@
                    buf: Pointer
                end;
     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
-    TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword);
+    TGUICallback = procedure (p: pointer; msgType: TMessageType; msg: PChar; len: Longword); cdecl;
 
 implementation