From eacb1db0479ed92fe455312715d579cae28f3de1 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Sun, 14 Jun 2015 23:35:51 +0000 Subject: wrong calling convention git-svn-id: http://svn.miranda-ng.org/main/trunk@14171 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_core.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'include/delphi') diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc index 15ccae1e67..f8884d239a 100644 --- a/include/delphi/m_core.inc +++ b/include/delphi/m_core.inc @@ -141,9 +141,9 @@ procedure KillModuleServices(hInst:HINST); stdcall; procedure KillObjectServices(var ptr); stdcall; external CoreDLL name 'KillObjectServices'; -function CallContactService(hContact:TMCONTACT;const name:PAnsiChar;wParam:WPARAM;lParam:LPARAM):int_ptr; cdecl; +function CallContactService(hContact:TMCONTACT;const name:PAnsiChar;wParam:WPARAM;lParam:LPARAM):int_ptr; stdcall; external AppDLL name 'CallContactService'; -function CallProtoService(const szModule:PAnsiChar;const szService:PAnsiChar;wParam:WPARAM;lParam:LPARAM):int_ptr; cdecl; +function CallProtoService(const szModule:PAnsiChar;const szService:PAnsiChar;wParam:WPARAM;lParam:LPARAM):int_ptr; stdcall; external AppDLL name 'CallProtoService'; -- cgit v1.2.3