[adasockets] Receive_Some error

[Dmitriy Anisimkov]

Samuel,

It is a fix for an error in Receive_Some routine.

-------------------------------------------------------------
*** original/sockets.adb        Wed May 26 17:48:07 2004
--- src/sockets.adb     Wed May 26 17:38:25 2004
***************
*** 495,501 ****
        elsif Count = 0 then
           raise Connection_Closed;
        end if;
!       Last := Data'First + Stream_Element_Count (Count);
     end Receive_Some;

     ------------
--- 495,501 ----
        elsif Count = 0 then
           raise Connection_Closed;
        end if;
!       Last := Data'First + Stream_Element_Count (Count) - 1;
     end Receive_Some;

     ------------