gen-soccon.c: Bump year in copyright notices.

2008-04-08  Thomas Quinot  <quinot@adacore.com>

	* gen-soccon.c: Bump year in copyright notices.

	* g-soccon-vxworks.ads: Add new constant IP_PKTINFO

From-SVN: r134061

diff --git a/gcc/ada/g-soccon-vxworks.ads b/gcc/ada/g-soccon-vxworks.ads
index 173a591..16cf1fe 100644 (file)
--- a/gcc/ada/g-soccon-vxworks.ads
+++ b/gcc/ada/g-soccon-vxworks.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 2000-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 2000-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -149,6 +149,7 @@ package GNAT.Sockets.Constants is
 
    TCP_NODELAY        : constant :=          1; --  Do not coalesce packets
    SO_REUSEADDR       : constant :=          4; --  Bind reuse local address
+   SO_REUSEPORT       : constant :=        512; --  Bind reuse port number
    SO_KEEPALIVE       : constant :=          8; --  Enable keep-alive msgs
    SO_LINGER          : constant :=        128; --  Defer close to flush data
    SO_BROADCAST       : constant :=         32; --  Can send broadcast msgs
@@ -162,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 --
@@ -184,13 +186,6 @@ package GNAT.Sockets.Constants is
 
    Need_Netdb_Buffer  : constant :=          1; --  Need buffer for Netdb ops
 
-   ----------------------
-   -- Additional flags --
-   ----------------------
-
-   Thread_Blocking_IO : constant Boolean := True;
-   --  Set False for contexts where socket i/o are process blocking
-
    --------------------------------
    -- VxWorks-specific constants --
    --------------------------------
@@ -201,4 +196,11 @@ package GNAT.Sockets.Constants is
    OK                 : constant :=          0; --  VxWorks generic success
    ERROR              : constant :=         -1; --  VxWorks generic error
 
+   ----------------------
+   -- Additional flags --
+   ----------------------
+
+   Thread_Blocking_IO : constant Boolean := True;
+   --  Set False for contexts where socket i/o are process blocking
+
 end GNAT.Sockets.Constants;

diff --git a/gcc/ada/gen-soccon.c b/gcc/ada/gen-soccon.c
index a4dd957..9067a14 100644 (file)
--- a/gcc/ada/gen-soccon.c
+++ b/gcc/ada/gen-soccon.c
@@ -4,7 +4,7 @@
  *                                                                          *
  *                           G E N - S O C C O N                            *
  *                                                                          *
- *          Copyright (C) 2004-2007, Free Software Foundation, Inc.         *
+ *          Copyright (C) 2004-2008, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *
@@ -104,7 +104,7 @@ TXT("--               G N A T . S O C K E T S . C O N S T A N T S
 TXT("--                                                                          --")
 TXT("--                                 S p e c                                  --")
 TXT("--                                                                          --")
-TXT("--          Copyright (C) 2000-2007, Free Software Foundation, Inc.         --")
+TXT("--          Copyright (C) 2000-2008, Free Software Foundation, Inc.         --")
 TXT("--                                                                          --")
 TXT("-- GNAT is free software;  you can  redistribute it  and/or modify it under --")
 TXT("-- terms of the  GNU General Public License as published  by the Free Soft- --")