unused header removed from pascal sources

1 files changed, 1 insertions, 16 deletions

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;