diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 13:01:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-30 13:01:18 +0200 |
| commit | 93a87598b928f58f9e467bea8c718c5e2c91e498 (patch) | |
| tree | 3d747f395017502c088251df59226e37086a5feb /gcc/ada/g-socket.adb | |
| parent | 1399d355cb74c0de280637c1ce678df71f4adb38 (diff) | |
| download | gcc-93a87598b928f58f9e467bea8c718c5e2c91e498.zip gcc-93a87598b928f58f9e467bea8c718c5e2c91e498.tar.gz gcc-93a87598b928f58f9e467bea8c718c5e2c91e498.tar.bz2 | |
[multiple changes]
2014-07-30 Doug Rupp <rupp@adacore.com>
* adaint.c (__gnat_tmp_name) [__ANDROID__]: Default to putting
temp files in /cache directory unless overridden by TMPDIR.
2014-07-30 Jose Ruiz <ruiz@adacore.com>
* s-tassta.adb, s-tarest.adb (Initialize, Create_Task,
Create_Restricted_Task): Remove redundant check. Number_Of_CPUs returns
type CPU, so it can never be greater than CPU_Range'Last.
2014-07-30 Bob Duff <duff@adacore.com>
* s-taskin.ads: Minor comment fix.
2014-07-30 Thomas Quinot <quinot@adacore.com>
* g-socket.adb: Remove now useless WITH, USE, and USE TYPE
clauses.
2014-07-30 Yannick Moy <moy@adacore.com>
* debug.adb: Free debug flag dQ used for frontend inlining in
GNATprove mode..
* sem_ch6.adb (Analyze_Subprogram_Body_Helper): Remove test of
debug flag..
2014-07-30 Thomas Quinot <quinot@adacore.com>
* Make-generated.in: Remove generation of s-oscons.ads, only
generate the xoscons utility, in runtime-agnostic rules.
* gcc-interface/Makefile.in: Clean up rules. Remove VMS parts,
no longer supported.
From-SVN: r213250
Diffstat (limited to 'gcc/ada/g-socket.adb')
| -rw-r--r-- | gcc/ada/g-socket.adb | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index ee4d52a..b70c2cf 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -34,8 +34,6 @@ with Ada.Exceptions; use Ada.Exceptions; with Ada.Finalization; with Ada.Unchecked_Conversion; -with Interfaces.C.Strings; - with GNAT.Sockets.Thin_Common; use GNAT.Sockets.Thin_Common; with GNAT.Sockets.Thin; use GNAT.Sockets.Thin; @@ -1412,7 +1410,6 @@ package body GNAT.Sockets is function Inet_Addr (Image : String) return Inet_Addr_Type is use Interfaces.C; - use Interfaces.C.Strings; Img : aliased char_array := To_C (Image); Addr : aliased C.int; @@ -1710,7 +1707,6 @@ package body GNAT.Sockets is ------------------------ procedure Raise_Socket_Error (Error : Integer) is - use type C.Strings.chars_ptr; begin raise Socket_Error with Err_Code_Image (Error) & Socket_Error_Message (Error); @@ -2421,7 +2417,6 @@ package body GNAT.Sockets is function To_Host_Entry (E : Hostent_Access) return Host_Entry_Type is use type C.size_t; - use C.Strings; Aliases_Count, Addresses_Count : Natural; @@ -2549,7 +2544,6 @@ package body GNAT.Sockets is ---------------------- function To_Service_Entry (E : Servent_Access) return Service_Entry_Type is - use C.Strings; use type C.size_t; Aliases_Count : Natural; |