[multiple changes]

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.

From-SVN: r154772

1 files changed, 6 insertions, 11 deletions

diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads
index bb0700a85a4..7d5f1107add 100644
--- a/gcc/ada/s-crtl.ads
+++ b/gcc/ada/s-crtl.ads
@@ -31,18 +31,18 @@
 
 --  This package provides the low level interface to the C runtime library
 
-with Interfaces.C.Strings;
+pragma Compiler_Unit;
 
 with System.Parameters;
 
 package System.CRTL is
    pragma Preelaborate;
 
-   subtype chars_ptr is Interfaces.C.Strings.chars_ptr;
-
    subtype chars is System.Address;
    --  Pointer to null-terminated array of characters
-   --  Should use Interfaces.C.Strings types instead???
+   --  Should use Interfaces.C.Strings types instead, but this causes bootstrap
+   --  issues as i-c contains Ada 2005 specific features, not compatible with
+   --  older, Ada 95-only base compilers???
 
    subtype DIRs is System.Address;
    --  Corresponds to the C type DIR*
@@ -116,8 +116,7 @@ package System.CRTL is
    function fseek
      (stream : FILEs;
       offset : long;
-      origin : int)
-      return   int;
+      origin : int) return int;
    pragma Import (C, fseek, "fseek");
 
    function ftell (stream : FILEs) return long;
@@ -167,8 +166,7 @@ package System.CRTL is
      (stream : FILEs;
       buffer : chars;
       mode   : int;
-      size   : size_t)
-      return   int;
+      size   : size_t) return int;
    pragma Import (C, setvbuf, "setvbuf");
 
    procedure tmpnam (string : chars);
@@ -195,7 +193,4 @@ package System.CRTL is
    function write (fd : int; buffer : chars; nbytes : int) return int;
    pragma Import (C, write, "write");
 
-   function strerror (errno : int) return chars_ptr;
-   pragma Import (C, strerror, "strerror");
-
 end System.CRTL;