From b407cbb7ad5cf00f0420fd91b82969ffcbaba5b5 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Fri, 9 Feb 2018 14:21:27 +0300 Subject: unused header removed from pascal sources --- include/delphi/m_protocols.inc | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) (limited to 'include/delphi/m_protocols.inc') diff --git a/include/delphi/m_protocols.inc b/include/delphi/m_protocols.inc index 5fb1c39ad7..e5af3b4189 100644 --- a/include/delphi/m_protocols.inc +++ b/include/delphi/m_protocols.inc @@ -154,14 +154,6 @@ type they can be encryption and loads of other things, too. And yes, before you ask, that is triple indirection. Deal with it. Access members using ppProtocolDescriptors[index]->element } -type - pfnInitProto = function(const szModuleName:PAnsiChar;const szUserName:TCHAR):PPROTO_INTERFACE; cdecl; - -// deallocates an account instance - pfnUninitProto = function(pin:PPROTO_INTERFACE):int; cdecl; - -// removes an account from the database - pfnDestroyProto = function(pin:PPROTO_INTERFACE):int; cdecl; type PPROTOCOLDESCRIPTOR = ^TPROTOCOLDESCRIPTOR; @@ -170,15 +162,8 @@ type cbSize : size_t; szName : PAnsiChar; // unique name of the module _type : int; // module type, see PROTOTYPE_ constants - // 0.8.0+ additions - fnInit :pfnInitProto; // initializes an empty account - fnUninit :pfnUninitProto; // deallocates an account instance - fnDestroy:pfnDestroyProto; // removes an account end; -const - PROTOCOLDESCRIPTOR_V3_SIZE = SizeOf(int_ptr)+SizeOf(PAnsiChar)+SizeOf(size_t); - { v0.3.3+: For recv, it will go from lower to higher, so in this case: check ignore, decrypt (encryption), translate @@ -270,7 +255,7 @@ type bAccMgrUIChanged:ByteBool; hwndAccMgrUI :HWND; iOrder :int; // account order in various menus & lists - ppro :PPROTO_INTERFACE; // pointer to the underlying object + ppro :pointer; // pointer to the underlying object end; tagACCOUNT = TPROTOACCOUNT; -- cgit v1.2.3