charon-tkm: Update to latest Anet version

This commit is contained in:
Adrian-Ken Rueegsegger
2018-02-08 17:01:38 +01:00
committed by Tobias Brunner
parent c6a402d4fa
commit fcff3808b4
4 changed files with 8 additions and 5 deletions
+5 -2
View File
@@ -27,10 +27,13 @@ package body Esa_Event_Service
is
package Unix_TCP_Receiver is new Anet.Receivers.Stream
(Socket_Type => Anet.Sockets.Unix.TCP_Socket_Type);
(Socket_Type => Anet.Sockets.Unix.TCP_Socket_Type,
Address_Type => Anet.Sockets.Unix.Full_Path_Type,
Accept_Connection => Anet.Sockets.Unix.Accept_Connection);
procedure Dispatch is new Tkmrpc.Process_Stream
(Dispatch => Tkmrpc.Dispatchers.Ees.Dispatch);
(Dispatch => Tkmrpc.Dispatchers.Ees.Dispatch,
Address_Type => Anet.Sockets.Unix.Full_Path_Type);
Sock : aliased Anet.Sockets.Unix.TCP_Socket_Type;
Receiver : Unix_TCP_Receiver.Receiver_Type (S => Sock'Access);