
  PROCEDURE [INLINE] nlp$sk_tcp_get_rec_task_entry
    (VAR tcp_connection: ^nlt$tcp_socket_layer;
     VAR receiver_task: ^nlt$tcp_receiver_task);

?? PUSH (LISTEXT := ON) ??

    IF tcp_connection^.available_receiver_pool <> NIL THEN
      receiver_task := tcp_connection^.available_receiver_pool;
      tcp_connection^.available_receiver_pool := receiver_task^.next_entry;
    ELSE
      REPEAT
        ALLOCATE receiver_task IN nav$network_paged_heap^;
        IF receiver_task = NIL THEN
          syp$cycle;
        IFEND;
      UNTIL receiver_task <> NIL;
    IFEND;
    receiver_task^.next_entry := NIL;

  PROCEND nlp$sk_tcp_get_rec_task_entry;

*copy nlh$sk_tcp_get_rec_task_entry

*copyc syp$cycle
*copyc nav$network_paged_heap
*copyc nlt$tcp_receiver_task
*copyc nlt$tcp_socket_layer
?? POP ??
