diff options
| author | Thomas Quinot <quinot@adacore.com> | 2007-06-06 12:31:06 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:31:06 +0200 |
| commit | 9aeef76b6f20d5f895821f10e3cef2518b4b9ebc (patch) | |
| tree | fc7e9dbcdb9f0960c2ce0a3170d937a7c1f6f6a4 /gcc/ada/g-soccon.ads | |
| parent | 96338f1975a1543a0547df82b9d0f2c5d206fb1b (diff) | |
| download | gcc-9aeef76b6f20d5f895821f10e3cef2518b4b9ebc.zip gcc-9aeef76b6f20d5f895821f10e3cef2518b4b9ebc.tar.gz gcc-9aeef76b6f20d5f895821f10e3cef2518b4b9ebc.tar.bz2 | |
g-soccon.ads: Add new constant Thread_Blocking_IO...
2007-04-20 Thomas Quinot <quinot@adacore.com>
* g-soccon.ads: Add new constant Thread_Blocking_IO, always True by
default, set False on a per-runtime basis.
(Need_Netdb_Buffer): New constant.
* g-socket.ads, g-socket.adb: Import new package
GNAT.Sockets.Thin.Task_Safe_NetDB.
(Raise_Host_Error): Use Host_Error_Message from platform-specific thin
binding to obtain proper message.
(Close_Selector): Use GNAT.Sockets.Thin.Signalling_Fds.Close.
Replace various occurrences of Arry (Arry'First)'Address with the
equivalent Arry'Address (GNAT always follows implementation advice from
13.3(14)).
(Get_Host_By_Address, Get_Host_By_Name,
Get_Service_By_Name, Get_Service_By_Port): Do not use GNAT.Task_Lock;
instead, rely on platform-specific task safe netdb operations provided
by g-socthi.
* g-socthi.ads, g-socthi.adb (Initialize): Remove obsolete formal
parameter Process_Blocking_IO.
(Host_Error_Messages): Add stub body.
(GNAT.Sockets.Thin.Signalling_Fds): New procedure Close.
(Safe_Gethostbyname, Safe_Gethostbyaddr, Safe_Getservbyname,
Safe_Getservbyport): Move functions into new child package
Task_Safe_NetDB.
(Nonreentrant_Gethostbyname, Nonreentrant_Gethostbyaddr,
Nonreentrant_Getservbyname, Nonreentrant_Getservbyport): New routines.
(In_Addr): Add alignment clause.
From-SVN: r125424
Diffstat (limited to 'gcc/ada/g-soccon.ads')
| -rw-r--r-- | gcc/ada/g-soccon.ads | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/gcc/ada/g-soccon.ads b/gcc/ada/g-soccon.ads index 679a986..6890c65 100644 --- a/gcc/ada/g-soccon.ads +++ b/gcc/ada/g-soccon.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2007, 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- -- @@ -43,6 +43,9 @@ -- but are for illustration purposes only. As noted above, part of a port -- to a new target is to replace this file appropriately. +-- This file is generated automatically, do not modify it by hand! Instead, +-- make changes to gen-soccon.c and re-run it on each target. + package GNAT.Sockets.Constants is -------------- @@ -182,4 +185,17 @@ package GNAT.Sockets.Constants is SIZEOF_tv_sec : constant := 4; -- tv_sec SIZEOF_tv_usec : constant := 4; -- tv_usec + ---------------------------------------- + -- Properties of supported interfaces -- + ---------------------------------------- + + 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 + end GNAT.Sockets.Constants; |