diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 00ae0d60ee6..c3e49b92727 100644
--- 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 495b7b33fb0..8b4ac6154a6 100644
--- 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 --