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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164151 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 66db437..72a5d2a 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,14 @@
+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

diff --git a/gcc/ada/a-dirval.adb b/gcc/ada/a-dirval.adb
index 48f3cc6..c3da2ef 100644 (file)
--- a/gcc/ada/a-dirval.adb
+++ b/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
 

diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb
index 2142e49..a11d833 100644 (file)
--- a/gcc/ada/s-fileio.adb
+++ b/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

diff --git a/gcc/ada/s-taskin.ads b/gcc/ada/s-taskin.ads
index 3ec38bb..104a3a6 100644 (file)
--- a/gcc/ada/s-taskin.ads
+++ b/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

diff --git a/gcc/ada/s-tporft.adb b/gcc/ada/s-tporft.adb
index f2cfd65..3d62185 100644 (file)
--- a/gcc/ada/s-tporft.adb
+++ b/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);
 
    --  ???