Echo server: Difference between revisions

Line 185:
GNAT.Sockets.Listen_Socket (Socket => Receiver);
Task_Info.Initialize_Stack;
Find: loop -- Block for connection and take next next free task.
GNAT.Sockets.Accept_Socket
(Server => Receiver,
Anonymous user