[multiple changes]

2010-09-10  Arnaud Charlet  <charlet@adacore.com>

	* s-tporft.adb, s-taskin.ads (Register_Foreign_Thread): Move
	initialization of Task_Alternate_Stack here, cleaner since in case of
	ranvescar, Restricted_Ada_Task_Control_Block is not initialized
	implicitly.

2010-09-10  Thomas Quinot  <quinot@adacore.com>

	* s-fileio.adb, a-dirval.adb: Minor reformatting.

From-SVN: r164151

gcc/ada/ChangeLog

+2010-09-10  Arnaud Charlet  <charlet@adacore.com>
+
+	* s-tporft.adb, s-taskin.ads (Register_Foreign_Thread): Move
+	initialization of Task_Alternate_Stack here, cleaner since in case of
+	ranvescar, Restricted_Ada_Task_Control_Block is not initialized
+	implicitly.
+
+2010-09-10  Thomas Quinot  <quinot@adacore.com>
+
+	* s-fileio.adb, a-dirval.adb: Minor reformatting.
+
 2010-09-10  Emmanuel Briot  <briot@adacore.com>
 
 	* prj-util.adb (Executable_Of): Fix CE when the project does not

gcc/ada/a-dirval.adb

@@ -7,7 +7,7 @@
 --                                 B o d y                                  --
 --                             (POSIX Version)                              --
 --                                                                          --
---          Copyright (C) 2004-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 2004-2010, 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- --
@@ -47,7 +47,7 @@ package body Ada.Directories.Validity is
    -- Is_Valid_Path_Name --
    ------------------------
 
-   function Is_Valid_Path_Name   (Name : String) return Boolean is
+   function Is_Valid_Path_Name (Name : String) return Boolean is
    begin
       --  A path name cannot be empty and cannot contain any NUL character
 

gcc/ada/s-fileio.adb

@@ -385,7 +385,7 @@ package body System.File_IO is
    end Errno_Message;
 
    function Errno_Message
-     (Name : String;
+     (Name  : String;
       Errno : Integer := OS_Lib.Errno) return String
    is
    begin

gcc/ada/s-taskin.ads

@@ -523,7 +523,7 @@ package System.Tasking is
       --  Activator writes it, once, before Self starts executing. Thereafter,
       --  Self only reads it.
 
-      Task_Alternate_Stack : System.Address := System.Null_Address;
+      Task_Alternate_Stack : System.Address;
       --  The address of the alternate signal stack for this task, if any
       --
       --  Protection: Only accessed by Self

gcc/ada/s-tporft.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                B o d y                                   --
 --                                                                          --
---          Copyright (C) 2002-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 2002-2010, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNARL 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- --
@@ -86,6 +86,10 @@ begin
 
    Self_Id.Deferral_Level := 0;
 
+   --  We do not provide an alternate stack for foreign threads
+
+   Self_Id.Common.Task_Alternate_Stack := Null_Address;
+
    System.Soft_Links.Create_TSD (Self_Id.Common.Compiler_Data);
 
    --  ???