diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 10:20:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-11-30 10:20:47 +0000 |
| commit | c2fb68ac9fbebf56a2aa00b7ec47c950642e9b2d (patch) | |
| tree | 4e344719fe7e21476885c5dfa264200317167033 /gcc/ada/g-sothco.ads | |
| parent | 6665ce3784df4f1bf692785c0f79de6eaa7d6dc2 (diff) | |
| download | gcc-c2fb68ac9fbebf56a2aa00b7ec47c950642e9b2d.tar.gz | |
2009-11-30 Vincent Celier <celier@adacore.com>
* 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 <dewar@adacore.com>
* g-dyntab.ads: Add missing pragma Compiler_Unit
2009-11-30 Thomas Quinot <quinot@adacore.com>
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154772 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-sothco.ads')
| -rw-r--r-- | gcc/ada/g-sothco.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/g-sothco.ads b/gcc/ada/g-sothco.ads index 3f5c7695159..399f6d20346 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 |