Commit 189e353b by Thomas Quinot Committed by Arnaud Charlet

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
parent 1a5f40e1
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -149,6 +149,7 @@ package GNAT.Sockets.Constants is ...@@ -149,6 +149,7 @@ package GNAT.Sockets.Constants is
TCP_NODELAY : constant := 1; -- Do not coalesce packets TCP_NODELAY : constant := 1; -- Do not coalesce packets
SO_REUSEADDR : constant := 4; -- Bind reuse local address 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_KEEPALIVE : constant := 8; -- Enable keep-alive msgs
SO_LINGER : constant := 128; -- Defer close to flush data SO_LINGER : constant := 128; -- Defer close to flush data
SO_BROADCAST : constant := 32; -- Can send broadcast msgs SO_BROADCAST : constant := 32; -- Can send broadcast msgs
...@@ -162,6 +163,7 @@ package GNAT.Sockets.Constants is ...@@ -162,6 +163,7 @@ package GNAT.Sockets.Constants is
IP_MULTICAST_LOOP : constant := 11; -- Set/get mcast loopback IP_MULTICAST_LOOP : constant := 11; -- Set/get mcast loopback
IP_ADD_MEMBERSHIP : constant := 12; -- Join a multicast group IP_ADD_MEMBERSHIP : constant := 12; -- Join a multicast group
IP_DROP_MEMBERSHIP : constant := 13; -- Leave a multicast group IP_DROP_MEMBERSHIP : constant := 13; -- Leave a multicast group
IP_PKTINFO : constant := -1; -- Get datagram info
------------------- -------------------
-- System limits -- -- System limits --
...@@ -184,13 +186,6 @@ package GNAT.Sockets.Constants is ...@@ -184,13 +186,6 @@ package GNAT.Sockets.Constants is
Need_Netdb_Buffer : constant := 1; -- Need buffer for Netdb ops 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 -- -- VxWorks-specific constants --
-------------------------------- --------------------------------
...@@ -201,4 +196,11 @@ package GNAT.Sockets.Constants is ...@@ -201,4 +196,11 @@ package GNAT.Sockets.Constants is
OK : constant := 0; -- VxWorks generic success OK : constant := 0; -- VxWorks generic success
ERROR : constant := -1; -- VxWorks generic error 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; end GNAT.Sockets.Constants;
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
* * * *
* G E N - S O C C O N * * 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 * * 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- * * 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 ...@@ -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("-- --")
TXT("-- S p e c --") TXT("-- S p e c --")
TXT("-- --") TXT("-- --")
TXT("-- Copyright (C) 2000-2007, Free Software Foundation, Inc. --") TXT("-- Copyright (C) 2000-2008, Free Software Foundation, Inc. --")
TXT("-- --") TXT("-- --")
TXT("-- GNAT is free software; you can redistribute it and/or modify it under --") 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- --") TXT("-- terms of the GNU General Public License as published by the Free Soft- --")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment