[Ada] GNAT.Sockets: fix recent regressions

[Pierre-Marie de Rodat]

I just pushed the attached patch. Tested on x86_64-pc-linux-gnu, 
committed on trunk. Thank you Simon again for the bug report!

Commit message:

The support for IPv6 that was added since last release triggered
regressions on various platforms. The size of structures passed to low
level routines was not correct anymore: it should depend on the address
family, now.

2019-03-22  Dmitriy Anisimkov  <anisimko@adacore.com>

  gcc/ada/

         PR ada/89583
         * libgnat/g-socket.adb (Bind_Socket, Connect_Socket,
         Send_Socket): Fix the computation of structure lengths passed to
         low level routines.
         (Is_IPv6_Address): Fix the number of expected colons.

2019-03-22  Simon Wright  <simon@pushface.org>

gcc/testsuite/

         PR ada/89583
         * gnat.dg/socket2.adb: New.

-- 
Pierre-Marie de Rodat
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 0001-Ada-GNAT.Sockets-fix-recent-regressions.patch
Type: text/x-patch
Size: 4372 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20190322/a203c43a/attachment.bin>