re PR ada/33688 (Ada package Gnat.Sockets missing constant for IP_PKTINFO (patch))

	PR ada/33688
	* g-soccon-darwin.ads: Define new constant IP_PKTINFO.

From-SVN: r133814

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 00ae0d60ee628d4bb29b566b31129305bdb8dbf8..c3e49b92727bf91991becd3b2a5b4e2766d3d714 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-01  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
+       PR ada/33688
+       * g-soccon-darwin.ads: Define new constant IP_PKTINFO.
+
        PR ada/33857
        * env.c: Always include crt_externs.h if __APPLE__ is defined.
        (__gnat_setenv): Use setenv instead of putenv if __APPLE__ is defined.

diff --git a/gcc/ada/g-soccon-darwin.ads b/gcc/ada/g-soccon-darwin.ads
index 495b7b33fb010717ab0b8cd49bbb1268f74e5397..8b4ac6154a65be33d760ff18ad63b309b0df0260 100644 (file)
--- a/gcc/ada/g-soccon-darwin.ads
+++ b/gcc/ada/g-soccon-darwin.ads
@@ -163,6 +163,7 @@ package GNAT.Sockets.Constants is
    IP_MULTICAST_LOOP  : constant :=          11; --  Set/get mcast loopback
    IP_ADD_MEMBERSHIP  : constant :=          12; --  Join a multicast group
    IP_DROP_MEMBERSHIP : constant :=          13; --  Leave a multicast group
+   IP_PKTINFO         : constant :=          -1; --  Get datagram info
 
    -------------------
    -- System limits --