[adasockets] Bug in Get_Line procedure and patch

[Gerhard Dieringer]

Hi,

when I use Put_Line to send strings via UDP to a server and receive
these strings with Get_Line, the following problem occures:

The first string is correct but all the following strings start with a
NUL-character and are one byte too long. When writing the strings to the
screen, they seem to be ok because the NUL is not shown on the screen.

With TCP this effect does not occur.

I think the problem can be solved with the following patch (Version
1.8.4.3):

file sockets.adb:
295c295
<          elsif Char /= CR then
---
>          elsif Char /= CR and then Char /= Ada.Characters.Latin_1.NUL
then

-----------------
Gerhard Dieringer