From ff149a358cd46b8e54a0080e8c714103a8def136 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 30 Nov 2009 11:20:47 +0100 Subject: [multiple changes] 2009-11-30 Vincent Celier * prj-makr.adb (Source_Files): New hash table to keep track of source file names. (Finalize): Avoid putting several times the same source file name in the source list file. * prj-pp.adb (Print): Fix a bug in the placement of "at nn" for associative array indexes. 2009-11-30 Robert Dewar * g-dyntab.ads: Add missing pragma Compiler_Unit 2009-11-30 Thomas Quinot * s-crtrun.ads, s-crtl.ads, g-stseme.adb, Makefile.rtl, s-fileio.adb (System.CRTL.Runtime): New unit, to contain parts of s-crtl that are used in the Ada runtime but can't be used in the compiler because of bootstrap issues. * socket.c, s-oscons-tmplt.c, g-sothco.ads (System.OS_Constants.SIZEOF_struct_servent): New constant. Use s-oscons constant instead of external variable to get size of struct hostent. From-SVN: r154772 --- gcc/ada/g-sothco.ads | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'gcc/ada/g-sothco.ads') diff --git a/gcc/ada/g-sothco.ads b/gcc/ada/g-sothco.ads index 3f5c769..399f6d2 100644 --- a/gcc/ada/g-sothco.ads +++ b/gcc/ada/g-sothco.ads @@ -212,9 +212,8 @@ package GNAT.Sockets.Thin_Common is C.Strings.Null_Ptr); -- Arrays of C (char *) - sizeof_servent : constant C.size_t; - pragma Import (C, sizeof_servent, "__gnat_sizeof_servent"); - type Servent is array (1 .. sizeof_servent) of C.char; + type Servent is new System.Storage_Elements.Storage_Array + (1 .. SOSC.SIZEOF_struct_servent); for Servent'Alignment use 8; -- Service entry. This is an opaque type used only via the following -- accessor functions, because 'struct servent' has different layouts on -- cgit v1.1